'------------In a standard module-----------
'Sample code that creates the file Test.vbs in the c:\ directory
'The resulting file, when executed, will open *.xls and will
'launch the procedure "MyMacro" stored in one of *.xls file's
'standard modules.

Sub CreateVBSFile()
    Dim strTxt As String
    Dim strFileName As String
    Dim objFS As Object, objFile As Object

    'Establish the path and the name of the *.vbs file
    strFileName = "C:\Test.vbs"

    'Create the procedure body
    strTxt = _
        strTxt & "Set myApp = WScript.CreateObject(""Excel.Application"")" & Chr( 13 )
    strTxt = _
        strTxt & "Set myBook = myApp.WorkBooks.Open(""" & _
            ThisWorkbook.FullName & """)" & Chr( 13 )
    strTxt = _
        strTxt & "myApp.Run(""MyMacro"")" & Chr( 13 )
    strTxt = _
        strTxt & "Set myBook=nothing" & Chr( 13 )
    strTxt = _
        strTxt & "myApp.Quit" & Chr( 13 )
    strTxt = _
        strTxt & "Set myApp = Nothing"

    'Create the *.vbs file and fill it with code
    Set objFS = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFS.CreateTextFile(strFileName, True)
    objFile.WriteLine (strTxt)
    objFile.Close
End Sub

'The procedure to be invoked by *.vbs
Sub MyMacro()
    MsgBox "Hello World!"
End Sub
'------------End of code-----------

Sub test()
    CreateVBSFile
    Shell "cscript //nologo C:\Test.vbs"
End Sub