Thread
:
Entire Column Delete
View Single Post
#
2
Posted to microsoft.public.excel.programming
Don Guillett[_4_]
external usenet poster
Posts: 2,337
Entire Column Delete
try doing it backwards
for 100 to 2 step -1
--
Don Guillett
SalesAid Software
"ermeko" wrote in message
...
Hi,
I have 100 columns. Some of then have value some don't. The task is to
delete the columns that don't have any value. But when I delete the N th
column the "N+1" th column becomes N th column and even it has no value I
can
not delete it. Below is the code. Can anybody help me?
For M = 1 To 100
If objWrk.ActiveSheet.Cells(1, M).Value = "" Then
objWrk.ActiveSheet.Cells(1, M).EntireColumn.Delete
End If
Next M
Reply With Quote
Don Guillett[_4_]
View Public Profile
Find all posts by Don Guillett[_4_]