Hi Michael

Sub test()
Dim x As String
x = "R:\MyExistingFolder\" & Range("A1")
On Error Resume Next
MkDir x
End Sub

--
XL2002
Regards

William



"Michael McClellan" wrote in message
om...
| I would like a macro that would create a folder on one of our shared
| drives and would name this folder based on what is in one of the cells
| in the current worksheet. Does anyone have a clue how to do this?
| Any help is appreciated.