M
mark
Here's one way:
Sub test()
Dim stYear As String
Dim stExists As String
stYear = Year(Range("b10").Value)
stExists = Dir("f:\" & stYear, vbDirectory)
If stExists = "" Then
MkDir "f:\" & stYear
End If
End Sub
Sub test()
Dim stYear As String
Dim stExists As String
stYear = Year(Range("b10").Value)
stExists = Dir("f:\" & stYear, vbDirectory)
If stExists = "" Then
MkDir "f:\" & stYear
End If
End Sub