Modul auf mehrere Blätter beziehen

Private Sub Worksheet_Calculate()
If Cells(1, 3) Is Nothing Then Exit Sub
Call Ausblenden
End Sub

Sub Ausblenden()
Dim Wks1 As Worksheet
Dim LngSpalten As Long
Dim LngEinblenden As Long
Dim LngAusblenden As Long
Const LngStart As Long = 5      'Ab dieser Spalte wird Ein- bzw Ausgeblendet
Const LngAnzahl As Long = 100    'Bis zu dieser Spalte wird  Ein- bzw Ausgeblendet
Application.ScreenUpdating = False
On Error GoTo Fehlerroutine
Set Wks1 = Worksheets("Tabelle3")
'Erst alle Spalten einblenden
For LngEinblenden = LngStart To LngAnzahl
Wks1.Columns(LngEinblenden).Hidden = False
Next
'Dann die unnötigen Spalten ausblenden
LngSpalten = Wks1.Cells(1, 3) + LngStart
For LngAusblenden = LngSpalten To LngAnzahl
Wks1.Columns(LngAusblenden).Hidden = True
Next
Fehlerroutine:
Application.ScreenUpdating = True
End Sub