NBVC
Well-known Member
- Joined
- Aug 31, 2005
- Messages
- 5,828
Hi again,
How can I replace
within this code with numbered columns?
Tried this but doesn't work.
How can I replace
Code:
.Columns("A:AI").EntireColumn.Hidden = True
Code:
Set WBook = ActiveWorkbook
For Each WSheet In WBook.Worksheets
With WSheet
' autofit column widths
.Columns("A:AI").EntireColumn.AutoFit
.Rows("2:" & LastRow & "").RowHeight = 17
End With
Next
Tried this but doesn't work.
Code:
.Range(Columns(1), Columns(LastCol)).EntireColumn.Hidden = True