Sub Unhide_cols()
On Error GoTo err_Unhide_cols
Dim oWS As Excel.Worksheet
Set oWS = Application.Worksheets("2013 EOD Account Watch List")
With Application.Worksheets(oWS.Name)
'.Range("A2").Activate
.Columns("K").Select
Selection.EntireColumn.Hidden = False
.Columns("A:I").Select
Selection.EntireColumn.Hidden = True
Selection.EntireColumn.Hidden = False
.Columns("A:I").AutoFit
.Columns("B").ColumnWidth = 20
End With
exit_Unhide_cols:
Set oWS = Nothing
Exit Sub
err_Unhide_cols:
MsgBox Err.Number & " " & Err.Description
GoTo exit_Unhide_cols
End Sub