Makro kørsel efter input celle

Denne kode indsættes i VBA/Ark1:

Dim makroNavn As String
Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target >= 1 And Target <= 16 Then
        makroNavn = "macro" & CStr(Target)
        Application.Run makroNavn
    End If
End Sub


Denne kode indsættesi VBA/Module1:

Private Sub macro1()
    MsgBox ("1")
End Sub
Private Sub macro2()
    MsgBox ("2")
End Sub

Pssst hvordan er det, at jeg sætter de to koder ind?

Mvh
Ransborg

Ps. husk at lave et svar

Hvis du ligger følgede kode ind under det ark, hvor du taster 1,2,16, så virker din makro:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Call KørMakro(Target.Value)
    End If
End Sub

Sub KørMakro(værdi As Integer)
    Select Case værdi
    Case 1
        Call Makro1
    Case 2
        Call Makro2
    Case 16
        Call Makro16
    End Select
End Sub

Sub Makro1()
    MsgBox "Makro1"
End Sub
Sub Makro2()
    MsgBox "Makro2"
End Sub

Sub Makro16()
    MsgBox "Makro16"
End Sub

Fra Excel Alt+F11 åbner VBA-vinduet
Åbn Ark1 indsæt koden heri

Indsæt / Module
Module1 oprettes - åbn dette - indsæt koden

Jeg synes ikke, at jeg kan vælge KørMakro, når jeg skal tildele til en knap? - hvad gør jeg galt?

Mvh
Ransborg

Ved ingen af eksempler hverken mit eller subertekst skal du tilføje en knap
Makroen aktiveres af en Event, dvs. hændelse.
Hændelsen her er, at du i det ark, hvor du har sat koden ind, ÆNDRE I A1
Bemærk "Worksheet_Change" i koden, som er det funktion, som aktiveres af hændelsen/event'en.

MEN DET ER DØDVIGTIGT AT DU SÆTTER KODEN IND I DET ARK HVOR DU LAVER DINE INDTASTINGER. ELLER VIRKER DET IKKE!
En af måden du kan komme inde i koden i arket er ved at højreklikke på arknavnet, når du står i excel og så paste koden ind der.

I øvrigt kan du ikke tilføje en knap, fordi der er en funktion, som tager argumenter.
Du kan sætte knap til et sub som ingen argumenter har