Change this line;
Set objShell = WScript.CreateObject("Wscript.Shell")
to
Set objShell = CreateObject("Wscript.Shell")


--
Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"John Keith" wrote:
| Sub Test()
| Dim objShell As Object
| Set objShell = WScript.CreateObject("Wscript.Shell")
| Wait = True
| objShell.Run "c:\FSOTest\FTP02.BAT", 1, Wait
| End sub
|
| FTP02.BAT points to a script file that will "get" a file from an IBM
| mainframe. (the FTP is tested and works as a stand-alone)
|
| The "Set" statement gets a runtime error 424 "Object required"
|
| I have added References for Microsoft VBScript Regular Expressions 1.0 and
5.5
| pointing to C"\WINNT\System32\vbscript.dll\2 and ...\3 respectively
(perhaps
| there is a different reference that is needed?)
|
| How do I make this code work from VBA?
|
| I plan on making this run from an Open event to always refresh the data
from
| an external source before the spreadsheet data is shown.
|
|
| --
| Regards,
| John