Hallo Lotto,
heißen die Makros z.B. makro1, makro2 etc. dann kannst du das so machen:
Sub start1()
Dim strMakro As String
strMakro = "Makro" & Range("A2").Value
Application.Run (strMakro)
End Sub
Haben die einzelnen Makros verschiedene Namen, dann so:
Sub start2()
Select Case Range("A2").Value
Case 1: Call Einblenden
Case 2: Call Ausblenden
End Select
End Sub
Statt Ein- bzw. Ausblenden musst du dann natürlich die Namen deiner Makros einsetzen.
Gruß
M.O.