Thank you both very much for your kind response to my plea

Put the DOS Dir command in a bat file
and call that bat file from Shell.
E.g, Shell "C:\Test.bat",1

Hmmm...
I had thought of that,
but thought there MUST be a better way !

Like this...
Shell(Environ$("comspec") & " /c dir C:\ /S
C:\DirList1.$$$",1)
Spaces in the path or filename have to be wrapped in
double quotes.

Blimey, that's complicated !

I think I'll stick to Chip's method after all !

Thus :-

Public Sub RunShell(myCommandLine, myWindowStyle)

' Write it to a batch file
Open "C:\RunShell.bat" for Output as #1
Print #1, myCommandLine
Close #1

' Run the batch file
Shell "C:\RunShell.bat", myWindowStyle

' Delete the batch file
Kill "C:\RunShell.bat"

End Sub

So instead of
Shell "dir C:\ /S C:\DirList1.$$$",1

I would use
RunShell "dir C:\ /S C:\DirList1.$$$", WindowStyle


Thanks again