Sub Main()
    beispiel "Tabelle1"
End Sub

Sub beispiel(sht As String)
    Worksheets(sht).Range("A1").Value = "test"
End Sub

'oder  ohne Parameter

 Sub Main()
    beispiel
End Sub

Sub beispiel()
    Worksheets("Tabelle1").Range("A1").Value = "test"
End Sub

Wenn du den Code im Allgemeinen Modul laufen lassen willst, bist du gut beraten jeweils das richtige Arbeitsblatt vor die Range zu setzen. 

Das beispiel zeigt eine Sub mit Übergabeparameter. Durch den Paramater ist sie aber nicht in der Makroliste in deinem  Entwicklertools menü gelistet. Das zweite ist ohne Parameter.