syntax error for counting the number of columns end.
I had a macro to hide some columns on the end of a report. They keep
changing the columns on the right so I changed it to automatically count to the last column and now I get a syntax error. THANKS! Public Sub HideXtraColumns() Dim Rng As Range ' HideCells Macro With ActiveSheet 'Columns("O:Z").EntireColumn.Hidden = False Columns(15:(Columns.Count, 1).End(xltoRight)).EntireColumn.Hidden = True End With End Sub |
syntax error for counting the number of columns end.
With Activesheet
.Range(.Cells(1,15), .Cells(1,.Columns.count) _ .End(xltoLeft)).EntireColumn.Hidden = True End With -- Regards, Tom Ogilvy "Janis" wrote in message ... I had a macro to hide some columns on the end of a report. They keep changing the columns on the right so I changed it to automatically count to the last column and now I get a syntax error. THANKS! Public Sub HideXtraColumns() Dim Rng As Range ' HideCells Macro With ActiveSheet 'Columns("O:Z").EntireColumn.Hidden = False Columns(15:(Columns.Count, 1).End(xltoRight)).EntireColumn.Hidden = True End With End Sub |
All times are GMT +1. The time now is 12:13 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com