Calling a macro with a variable from “Personal.xlsb”

[xlUser1]

I have a macro in Personal.xlsb called Public Sub Get_Name(shName As String)

When I use below sub to call Get_Name from Personal.xlsb, I get an error at the Application.Run "Personal.xlsb!Get_Name(shName)"

Public Sub Set_Name()
    Dim shName As String
    shName = ActiveSheet.Name
[B]     Application.Run "Personal.xlsb!Get_Name(shName)"[/B]
End Sub

If I remove the variable from Get_Name macro and use Application.Run "Personal.xlsb!Get_Name", it runs ok. Any help on how to get it to work with the variable?

Thanks in advance for the help

 

[shg]

  Application.Run "Personal.xlsb!Get_Name", ActiveSheet.Name

 

[xlUser1]

Wow....Thank you very much for the quick answer!!!

 

[shg]

You're welcome.