Makro til skjul/Vis kolonne på flere ark

Sub Demo_Skjul()
    Dim wksTemp As Worksheet
    For Each wksTemp In ThisWorkbook.Worksheets
        wksTemp.Range("G1").EntireColumn.Hidden = True
    Next wksTemp
End Sub

Sub Demo_Vis()
    Dim wksTemp As Worksheet
    For Each wksTemp In ThisWorkbook.Worksheets
        wksTemp.Range("G1").EntireColumn.Hidden = False
    Next wksTemp
End Sub

Tak...men hvis det nu ikke skal gælde hele filen men kun fra ark 1.1 til ark 7.8 hvordan formulerer jeg så det bedst.

Sub Demo_Skjul()
    ShowHideSheets False
End Sub

Sub Demo_Vis()
    ShowHideSheets True
End Sub

Sub ShowHideSheets(ByVal bShowSheets As Boolean)
    Dim wksTemp As Worksheet
    For Each wksTemp In ThisWorkbook.Worksheets
        Select Case wksTemp.Name
            Case "1.1", "2.3", "4.5", "7.8" 'Arknavne skrives her
                wksTemp.Range("G1").EntireColumn.Hidden = bShowSheets
        End Select
    Next wksTemp
End Sub

Der er ikke et øje tørt...perfekt, tak.

;-)