"Application.Run" Problem

[TFCJamieFay]

Hi Guys,

I'm trying to call a sub called "ValidateApp", stored in a module called "ValidateApp" with the following code...

Private Sub SubmitBtn_Click()

    msg = MsgBox("Are you sure you want to submit this application?", vbYesNo + vbExclamation, _
        "Warning!")
    
    If msg = vbNo Then
        TrackerForm.MainNameTBx.SetFocus
    Else
        Application.Run "ValidateApp"
    End If

End Sub

...the problem is however that I get an error on the line...

Application.Run "ValidateApp"

...saying that the macro cannot be found. The "Private Sub SubmitBtn_Click" is ran from a user form with a command button.

I have recently moved the code to a new module, which is probably the cause but what can I change so it now knows where to look? If it's any help the old module was called "SecondaryCode".

Many thanks,

Jay

 

[RoryA]

Whilst you can, as Kenneth said, use the same name for the module and routine (and workbook!), it is not, IMO, good practice. Nor is calling a sub "Run" for that matter!
Also, as Mark said, there is no need for using Application.Run anyway if the code is in the same workbook, unless you made it private for some reason. However, if you did want to use it, then you can use:

Application.Run "'" & Thisworkbook.name & "'!macro_name"

Note that if you need to pass an object to this macro, you can't do that with Run, but you can if you call it directly.

 

[TFCJamieFay]

Thanks again guys.

You have once more set me on the path to VBA enlightenment!!

Cheers!