Dim sFolder As String
On Error Resume Next
sFolder = Dir(Folder, vbDirectory)
If sFolder < "" Then
If (GetAttr(sFolder) And vbDirectory) = vbDirectory Then
'do nothing
Else
MkDir sFolder
End If
End If



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"AmyTaylor" wrote in
message ...

Thank you very much Norman, can I ask one final question ?

Is it possible to add something, whereby if the folder called \backup
doesnt exist it creates it then saves the backup file to it?
Thank you!!
Amy xx


--
AmyTaylor
------------------------------------------------------------------------
AmyTaylor's Profile:
http://www.excelforum.com/member.php...o&userid=20970
View this thread: http://www.excelforum.com/showthread...hreadid=500532