Kald af makro fra en celle.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target > 0 Then

Rem Her kan den ønskede makro kaldes

    End If
End Sub

Hej Supertekst

Tak for dit forslag.

Jeg har endnu ikke afprøvet det. jeg ved ikke hvordan jeg skal skrive koden der kalder en makro.

Hvis jeg kalder den makro der skal kaldes: "Mads_koer_makro". Koden vil blive placeret i "denne projektmappe".  Hvordan skal koden skrives??

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target > 0 Then
        Denne projektmappe.Mads_koer_makro
    End If
End Sub


I "Denne projektmappe"
Sub Mads_koer_makro()
    .......

End Sub

mon ikke det er sådan supertekst mener

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" And Target > 0 Then
      ThisWorkbook.Mads_koer_makro
    End If
End Sub

Hej Supertekst og kabbak.
Tak for jeres indlæg.
Jeg har prøvet at skrive jeres forslag, men får en fejl i linjen
?if Target address  = ?$A$1? And Target > 0 then?.
Ordet address bliver rødt når linjen sættes ind.
I stedet for at blive ved med at rette spørgsmål til jer vil jeg bede om en stor tjeneste.

Jeg har lavet en lille fil ?Eksperthjaelp_1?, som jeg har lagt på dropbox. Linket nedenfor.
Jeg vil bede jer om at programmere jeres forslag på filen, så den kalder den makro jeg har oprettet på arket
På forhånd tak.
https://www.dropbox.com/s/aztf7etvce7uen2/Eksperthjaelp_1.xlsm?dl=0

http://backup48.com/accounts/Fnco6dFnpS/1/index.html

Tak kebbak. Du var hurtig.

Jeg ved ikke hvorfor din kode virker, og min ikke når koderne var identiske(kopierede)