Problema con excel y macros

[opermty]

O por script:

call prueba

sub prueba()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("status.vbs")) Then set f1 = nothing: set fso = nothing: wscript.echo "Existe" : exit sub
Set f1 = fso.CreateTextFile("status.vbs", True)
end sub