VBA - Vis udskrift

Hej

Jeg håber på, at der er en der kan hjælpe med at ændre nedenstående, som virker upåklageligt på pc, men jeg vil rigtig gerne have det til at virke på Mac?

Sub Visudskrift()

Dim wks As Worksheet
    For Each wks In Worksheets
        If wks.Range("H9").Value2 = "Ikke gyldig" Or wks.Range("H9").Value2 = "Gyldig" Then
            wks.Visible = xlSheetVisible
        End If
        Worksheets(4).Select
    Next

Dim sht As Worksheet
For Each sht In ThisWorkbook.Worksheets
    If sht.Range("H9").Value = "Gyldig" Then sht.Select False
Next sht
ActiveWindow.SelectedSheets.PrintPreview

Worksheets(4).Select

End Sub

Vh CHC