J
joemeshuggah
hello all,
i have a spreadsheet that is variable in range (number of columns can vary).
i would like to create a macro that for each column in the worksheet, two
new columns would be inserted to the left.
i thought this would work, but i am running into problems...
LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
LC = LastColumn
For i = 2 To LC
If Cells(5, i + 1) <> "" Then
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
End If
Next i
how do i go about accomplishing this?
thanks!
i have a spreadsheet that is variable in range (number of columns can vary).
i would like to create a macro that for each column in the worksheet, two
new columns would be inserted to the left.
i thought this would work, but i am running into problems...
LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
LC = LastColumn
For i = 2 To LC
If Cells(5, i + 1) <> "" Then
Cells(5, i).Select
Selection.EntireColumn.Insert
Selection.EntireColumn.Insert
End If
Next i
how do i go about accomplishing this?
thanks!