How to create folders in Windows Explorer using names in col A?

Sub test()
Dim fso As Object, mySir As String, temp As String
Set fso = CreateObject("Scripting.FileSystemObject")
myDir = "c:\test\"
On Error Resume Next
For Each r In Range("a1", Range("a" & Rows.Count).End(xlUp))
    Err.Clear
    temp = fso.CreateFolder(myDir & r.Value)
    If Err = 0 Then
        MsgBox temp & vbLf & " was created.", vbInformation
    Else
        MsgBox Err.Description
    End If
Next
Set fso = Nothing
End Sub