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