Code:For lngCol = 1 To 256 If IsNull(Sheets(4).cell) Then Sheets(4).Col.Delete Shift:=xlLeft End If Next lngCol
I see that you stayed with your code and not what I supplied.
However, I think your code is doing too much. By that I mean it works okay the first time through, but in each successive running of the code, you will be deleting columns with previous data in other rows (rows above from previous pasting); I suspect you want to delete only that cell. Is that correct?
What error message are you getting?
________
Marijuana pictures
Last edited: