Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
subscript out of range....
Sub AAA()
Dim StartCol As Long Dim EndCol As Long Dim ColNdx As Long Set sht = Sheets(x) StartCol = 1 ' column A EndCol = 28 ' column AB For ColNdx = EndCol To StartCol Step -1 If Application.CountA(sht.Columns(ColNdx)) = 1 Then sht.Columns(ColNdx).Delete End If Next ColNdx End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
subscript out of range....
Once worked fine, but now error on this line....
Set sht = Sheets(x) |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Subscript out of range | Excel Programming | |||
9: Subscript out of range | Excel Discussion (Misc queries) | |||
Subscript out of Range | Excel Programming | |||
Subscript out of Range Q | Excel Programming | |||
Subscript out of range | Excel Programming |