Question is, line 1 selects a fixed Range but I would like to change this to the equivalent of "Shift + Ctrl + End" ie from current cell to the last cell in the row. End Right won't work because there are gaps.
Range("L1:YF1").Select Selection.EntireColumn.Hidden = False For Each Cell In Selection Count = Count + 1 Next Cell Range("L1").Select For Ch = 1 To Count If ActiveCell.Value <> "" And ActiveCell.Value = 0 Then Selection.EntireColumn.Hidden = True Else End If ActiveCell.Offset(0, 1).Range("$A$1").Select Next Ch Range("$K$2").Select
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.