VBA Macro code questions

[ariel20029]

Hi all,
I found a code to loop through the columns of a pivot table and identify the Columns that add to zero and hide them, but the code is stopping before it completes. The code is stopping at LastCol = Cells(GrTotLR, Columns.Count).End(xlToLeft).Column

and I am not sure why. Also is there any way to add to the if the column value is NULL to hide as well? thanks for any help.
Sharon

[FONT=Verdana]Sub HideCol()
Dim LR As Long, LastCol As Long, GrTotLR As Long
 
'Find last row on sheet with pivot table
'Assumes column A is best column to use for data population
'(This may or may not be the Pivot Table Grand Total row,
'depending on what else may be in the sheet!)
    With Sheets("WF PIVS")
        LR = Range("A" & Rows.Count).End(xlUp).Row
    End With
 
'Find the Grand Total Row on sheet with pivot table
'Assumes pivot table begins in column A
    With Sheets("WF PIVS")
        Set FndGrTot = Range("A1:A" & LR).Find(What:="Grand Total", LookIn:=xlFormulas, _
            Lookat:=xlWhole, Searchdirection:=xlPrevious, MatchCase:=False, _
            SearchFormat:=False)
             If Not FndGrTot Is Nothing Then GrTotLR = FndGrTot.Row
    End With
 
'Find last column with data populated on Grand Total Row
    With Sheets("WF PIVS")
      [U][B]  LastCol = Cells(GrTotLR, Columns.Count).End(xlToLeft).Column[/B][/U]
    End With
 
'Loop through cells in Grand Total row & hide columns if
'cell value = zero
        For i = 1 To LastCol
            If Cells(GrTotLR, i).Value = "0" Then
                Cells(GrTotLR, i).EntireColumn.Hidden = True
            End If
        Next i
 
MsgBox ("DONE!")
End Sub[/FONT]

 

[Michael M]

If you step through the code using F8, when you get to this line

LastCol = Cells(GrTotLR, Columns.Count).End(xlToLeft).Column

hover your mouse over "LastCol".....does it provide you with the correct last column ???