Macros are not working on a Mac

Sub FormatMediaProduct()
    Dim ws As Worksheet
    For Each ws In Worksheets
       
        If ws.Name <> ("Product Hierarchy Index") Then
           Sheets(ws.Name).Activate
           UnhideColumns
           HideColumns
    
        End If
    Next ws

    Sheets("Product Hierarchy Index").Activate
    
End Sub

Sub UnhideColumns()
    Columns("A:AX").Select
    Selection.EntireColumn.Hidden = False

End Sub

Sub HideColumns()
'
' HideColumns Macro
' Macro recorded 6/10/2008 by Veronica Boaz
'

'
    Columns("I:AX").Select
    Selection.EntireColumn.Hidden = True
    
End Sub

Thanks for taking a look at this. It's a pretty simple control button... it just hides selected columns.

Veronica