Makroafspilning som skal spørge om man er sikker på at man vil aktiverer afspilning

Prøv med:

Sub KørMakro()
    Dim Svar As Integer
    Svar = MsgBox("Er du sikker på at du vil aktiverer afspilning?", vbYesNo, "Advarsel !!!")
    If Svar = vbYes Then
        MsgBox ("Du valgte: Ja") 'Slettes efter test
        'din makro
    ElseIf Svar = vbNo Then
        MsgBox ("Du valgte: Nej") 'Slettes efter test
        Exit Sub
    End If
End Sub

Eller prøv:

Sub KørMakro()
    Dim Svar As Integer
    Svar = MsgBox("Er du sikker på at du vil aktiverer afspilning?", vbYesNo, "Advarsel !!!")
    If Svar = vbYes Then
        call Ja
    ElseIf Svar = vbNo Then
        Exit Sub
    End If
End Sub

Sub Ja()
MsgBox ("Du valgte: Ja") 'Slettes og erstattes af din makro
End sub

Hej
Forslag 1 virker. (Der går ged i forslag 2).
Jeg takker mange gange. Hvordan tildeler jeg point. Det kommer ikke lige til mig :-)

Hilsen mll

Jeg lægger et 'Svar' som er tiltænkt point givning.

Du skal bruge Kommentar.

Kig her:
http://www.eksperten.dk/faq
hvordan giver jeg dig pointene?
http://www.eksperten.dk/faq#faq-3-1

Hej

Så skulle de være givet med denne kommentar.
Nå..

Kan du hjælpe mig mere?

Hilsen mll

http://www.eksperten.dk/faq#faq-3-1
Hvordan accepterer eller afviser jeg et svar?
Når der er kommet et svar som du kan bruge, så klikker du ud for selve svaret i boksen "Acceptér dette svar". Derefter accepterer du svaret i den boks som dukker frem.

Og så ville det være en god skik, lige at kikke på:
http://www.eksperten.dk/list/aabnespoergsmaal/mllarsen