Unhide column without selecting sheet

Is there anyway to unhide a column without selecting it first? I don't want to move away from the sheet I'm on when it does it..

[VBA]Sub UnHide_Private_Email()
Call UnProtectAll
Sheets("1 MAINT").Select
Columns("p").Select
Selection.EntireColumn.Hidden = False
Call ProtectAll
End Sub
[/VBA]

Thanks again guys.

Mike.

This
[vba]
Sheets("1 MAINT").Select
Columns("p").Select
Selection.EntireColumn.Hidden = False [/vba]
can be changed to
[VBA]Sheets("1 MAINT").Columns("p").EntireColumn.Hidden = False[/VBA]

Try the following
[vba]With Sheets("1 Maint").Columns("P")
.EntireColumn.Hidden = False[/vba]
rather than using the Select option