Sub HideRows()
Dim tempRange As Range
Application.ScreenUpdating = False
Application.StatusBar = "Please wait ..., Inventory Sheet being shrunk !"
Set tempRange = Range("AA1").Offset(1)
While tempRange.Cells(1, 1).Value <> "end"
If tempRange.Cells(1, 1).Value <> "." Then
tempRange.EntireRow.Hidden = True
End If
Set tempRange = tempRange.Offset(1)
Wend
Application.ScreenUpdating = True
Application.StatusBar = False
MsgBox "Done !! Have a good day.", vbOKOnly, "Shrink Inventory Template"
End Sub
I use this as a button to hide rows when there value is zero or blank, was working fine up until today, now im getting an error on this line "While tempRange.Cells(1, 1).Value <> "end""
I am getting "." left in the cell for some reason and cant figure out why please help
Bookmarks