Hi Janis,

Set rng = Columns("0:Z")

Replace 0 (zero) with O (upper case letter O)


---
Regards,
Norman



"Janis" wrote in message
...
I got a type mismatch run-time error on the line to set the range.
I just want to hide columns 0 - Z or columns 16-26.
Can you help me set the range right?
thanks,


Sub HideXtraCells()
Dim rng As Range
' HideCells Macro

Set rng = Columns("0:Z")

rng.EntireColumn.Hidden = True

End Sub