Here is one I use to backup to the current directory. As you can see it
bypasses the mkdir if there is an error.

Sub Backup() 'kept in personal.xls & assigned to toolbar button
On Error GoTo BackupFile
MkDir CurDir & "\Backup"
BackupFile:
With ActiveWorkbook
MyWB = .Path & "\BACKUP\" & .Name
.SaveCopyAs MyWB
.Save
End With
End Sub

--
Don Guillett
SalesAid Software

"Andy" wrote in message
...
Hi

How do I create a macro to look into a directory and create a new
directory
called "Quotes" only if one doesn't exist already.

eg

R:\Team 318\Toyota

would result in...

R:\Team 318\Toyota\Quotes

when run again, it wouldn't do anything, because the Quotes directory now
exists.