Active Macro Naam in msgbox

[bkoppers]

Weet iemand of het mogelijk is om in een msgbox weer te geven welke macro op dat moment draait.

Sub MyMacro()

     Msgbox "Huidige Macro is " MacroNaam      ' MacroNaam value is dan "MyMacro"

End Sub

alvast bedankt.

 

[edmoor]

Volgens mij is dat er niet.
Je kan zoiets doen:

Sub MyMacro1()
    Macronaam "MyMacro1"
End Sub

Sub MyMacro2()
    Macronaam "MyMacro2"
End Sub


Public Sub Macronaam(DeNaam As String)
    MsgBox DeNaam
End Sub

Waarbij de Sub Macronaam in een module zit.

 

[snb]

Wat wil je daarmee bereiken ?
De plaats van de Msgbox is niet variabel, dus kun je de macronaam gewoon in de tekst opnemen.

Hoewel zinloos, kan het met:

Sub M_snb()
  With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).codemodule
    MsgBox .ProcOfLine(UBound(Split(Split(.Lines(1, .CountOfLines), "ProcOf")(0), vbCrLf)) + 1, 1)
  End With
End Sub

 

[bkoppers]

Wat wil je daarmee bereiken ?
De plaats van de Msgbox is niet variabel, dus kun je de macronaam gewoon in de tekst opnemen.

Hoewel zinloos, kan het met:

Sub M_snb()
  With ThisWorkbook.VBProject.VBComponents(ActiveSheet.Name).codemodule
    MsgBox .ProcOfLine(UBound(Split(Split(.Lines(1, .CountOfLines), "ProcOf")(0), vbCrLf)) + 1, 1)
  End With
End Sub

Dankjewel voor het mee denken, maar ik denk inderdaad dat het niet gaat. Ik krijg onderstaande melding als ik je code gebruik.

Fout 1004 tijdens uitvoering

Toegan tot het visual Basic-project op programmeerniveau is niet betrouwbaar.

 

[edmoor]

Toegang tot het VBA project kan je aan zetten in het vertrouwenscentrum.
Maar als anderen ook dat document moeten gebruiken is dat volledig af te raden.

De code van snb werkt overigens prima.

 

[snb]

Mijn vraag heb je overigens nog niet beantwoord.