Run time error 6 overflow

[323100N]

receiving this error Run time error 6 overflow while doing this code.

Sub Format()
Dim lReply As Long
Columns("b").TextToColumns Destination:=Range("b1"), DataType:=xlDelimited, FieldInfo:=Array(1, 3)
Application.MacroOptions Macro:="Format", _
ShortcutKey:="w"

    
    lReply = MsgBox("Would you like to proceed?", vbOKCancel)
    If lReply = vbCancel Then Exit Sub
    Sheets("OIB - Consolidator").Range("D:D,I:I,K:N,Q:V").EntireColumn.Delete
    Sheets("OIB - Consolidator").Range("D:E").NumberFormat = "General"
    Sheets("OIB - Consolidator").Range("G:G").NumberFormat = "0"
    'Sheets("OIB - Consolidator").Range("B:B").NumberFormat = "mm/dd/yy"
    
    
Call Delete_Row


End Sub

[davesexcel]

You could have issues with the code you are not showing.

What line shows the error?

Dim lReply As Long

Is there a reason you placed this as long?

[xlnitwit]

Just as an observation, Format is not a good name for a routine as it is the name of a VBA function.