> Do I have to select the whole worksheet
No
> does UsedRange know what is used?
Yes
> .movefile does not seem to work
Works:
Option Explicit Sub Macro1() Dim fso As New FileSystemObject If fso.FileExists("c:junk.doc") Then fso.MoveFile "c:junk.doc", "c:junk" Else MsgBox "No junk" End If End Sub
Don’t forget to use Tools | References to add MS Scripting Runtime. Have a great day! –Sam