syntax error for counting the number of columns end.

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Janis - 20 Sep 2006 00:31 GMT

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

Reply to this Message

Tom Ogilvy - 20 Sep 2006 01:29 GMT

With Activesheet
.Range(.Cells(1,15), .Cells(1,.Columns.count) _
.End(xltoLeft)).EntireColumn.Hidden = True
End With

Signature

Regards,
Tom Ogilvy

>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
[quoted text clipped - 11 lines]
> End With
> End Sub

Reply to this Message