Thread: Entire Column Delete
View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
Don Guillett[_4_] Don Guillett[_4_] is offline
external usenet poster
  
Posts: 2,337
Default Entire Column Delete
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


Reply With QuoteReply With Quote