Application.Run Activecell.value err 1004

[drom]

Hi and Thanks in advance!

If i run the Macro M001

I get the message Hello M001​

But when I run the macro AA and my Activecell is =M001

I get err 1004​

If My Activecell value is M001
And I have the following code:

Sub AA()  'aTxTs
Dim wCell As String:  wCell = ActiveCell.Value
   Application.Run wCell
End Sub

Sub M001()
 MsgBox "HELLO, M001"
End Sub

Sub M002()
 MsgBox "HELLO, M002"
End Sub

Sub M003()
 MsgBox "Bye Bye, M003"
End Sub

Why?

 

[JoeMo]

This runs fine for me if I put Test in the activecell. It throws the error 1004 if I name the called sub M001 and have M001 in the activecell. Can also get it to run if the called sub is named M_001 and M_001 appears in the activecell. No cogent explanation comes to mind.

Sub AA()
Dim wCell As String:  wCell = ActiveCell.Value
   Application.Run wCell
End Sub

Sub Test()
 MsgBox "HELLO, M001"
End Sub