Hi All,
I have the following code..
Dim lngCount As Long, Msg As String
lngCount = 2
If Len(Dir(Cells(1, 20), vbDirectory)) = 0 Then
MkDir Cells(1, 20)
Else
Do Until Len(Dir(Cells(1, 20) & " - " & lngCount, vbDirectory)) = 0
lngCount = lngCount + 1
Loop
MkDir Cells(1...