Hi p1,

I don't know why it doesn't work, but you can try this:


Command1_Click ()
Dim X
...
X = SHELL(".....)
...
end Sub


Perhaps the 'Dim X' and the 'X = ..' is missing.

 Good luck, Matt