For Loop only executes with F8

[Sisilla]

Hello All,

In my call to the following subroutine, the For Loop is supposed to
iterate 51 times. It does this fine when I run it with "step into," but
does not work when executed any other way.

Sub HideEmptyColumns(wks As Worksheet, lastcolumn As Long, firstrow As
Long)
'Hides all empty columns in the wks worksheet between columns 1 and
lastcolumn
'if the last non-empty row is firstrow
Dim col As Long
Dim LastRow As Long
ResetUsedRange wks
For col = 1 To lastcolumn
LastRow = (wks.Cells(Rows.Count, col).End(xlUp).row)
If LastRow = firstrow Then
Columns(col).Hidden = True
End If
Next col
End Sub

Might Excel not be giving the code enough time to execute? If so, how
do I give the bit of code more time? I appreciate any help.

Thanks,
Sisilla

 

[Ron de Bruin]

Hi Sisilla

Working for me correct if the activesheet is the wks sheet

Change

Columns(col).Hidden = True to
wks.Columns(col).Hidden = True

Do you see a error ?
If you not use

 

[Sisilla]

Thank you, Ron. I'll test out your solution. I turned off
ScreenUpdating before the loop and turned it back on again after the
loop, and it seems to be working. I greatly appreciate your help.

Sisilla