Her er en lidt anden måde at gøre det på.

Håber du kan bruge noget af det

Sub macro2()
MsgBox "A1 er lig med 2" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro3()
MsgBox "A1 er lig med 3" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro4()
MsgBox "A1 er lig med 4" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro5()
MsgBox "A1 er lig med 5" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro6()
MsgBox "A1 er lig med 6" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro7()
MsgBox "A1 er lig med 7" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro8()
MsgBox "A1 er lig med 8" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro9()
MsgBox "A1 er lig med 9" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro10()
MsgBox "A1 er lig med 10" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro11()
MsgBox "A1 er lig med 11" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro12()
MsgBox "A1 er lig med 12" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro13()
MsgBox "A1 er lig med 13" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro14()
MsgBox "A1 er lig med 14" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro15()
MsgBox "A1 er lig med 15" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro16()
MsgBox "A1 er lig med 16" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro17()
MsgBox "A1 er lig med 17" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro18()
MsgBox "A1 er lig med 18" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro19()
MsgBox "A1 er lig med 19" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro20()
MsgBox "A1 er lig med 20" 'Udskift dette med den macro du vil køre.
End Sub

Sub macro21()
MsgBox "A1 er lig med 21" 'Udskift dette med den macro du vil køre.
End Sub

Sender det gerne.... .

Det du har sendt virker super, men hvordan får jeg den til at trække en macro frem for at der kommer en tekstbox frem ?. Hvis jeg fjerner den linie i macro1 hvor der står (MsgBox "A1 er lig med 1" 'Udskift dette med den macro du vil køre.) og i stedet for tilføjer

Range("D1").Select

    Selection.Copy

    Range("J1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

    Application.CutCopyMode = False

    ActiveWorkbook.Save

    Range("A1").Select

Så kopier den godt nok celle D1 til J1 men den køre i loop og efter kort tid kommer der denne fejl  

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim y As Variant

  Dim x As Integer

  Dim macro As String

      y = ActiveSheet.Range("A1").Value   'Henter værdi fra A1 som Variant

        If Not IsNumeric(y) Then                  'Checker om værdien er et tal

        Exit Sub                                      'Hvis værdien ikke er et tal, gå til slut sub

    End If

    x = ActiveSheet.Range("A1").Value   'Henter værdi fra A1 som Integer

    If x < 1 Or x > 21 Then                    'Checker om værdien ligger mellem 1 og 21

        Exit Sub                                       'Hvis værdien ikke ligger mellem 1 og 21, gå til slut sub

    End If

    macro = "macro" & x                      'Navngiver macro med det nummer der er valgt F.eks. macro15

    Application.Run (macro)                  'Kører macro15 som ligger i Modul1= (Denne linje bliver gul)

End Sub

Håber dette giver lidt mening.... .

Mvh. den meget fortvivlet...