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

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

THANK YOU VERY MUCH

"ermeko" wrote:

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

glad to help

--
Don Guillett
SalesAid Software

"ermeko" wrote in message
...
THANK YOU VERY MUCH

"ermeko" wrote:

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