Djblois
11-06-2007, 08:34 AM
If Not IsNumeric(Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum))) Then ' It keeps crashing on this line
comProper Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum))
Else
Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum)).TextToColumns _
Destination:=Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum))
End If
wsworking is already defined as the current worksheet
lcolnum is defined as the current column
comproper is a procedure I have created to strings into proper format
comProper Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum))
Else
Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum)).TextToColumns _
Destination:=Range(Cells(2, lColNum), Cells(finalrow(wsWorking), lColNum))
End If
wsworking is already defined as the current worksheet
lcolnum is defined as the current column
comproper is a procedure I have created to strings into proper format