I am new to this VBA thing so any help would be welcome.

I need to create a file folder for all of the companies
listed in column F of my worksheet. I have a button on
the worksheet with the following line of code attached
but can not see how to move down to the next row.

Also is there a way to check if the folder exists, if it
does to ignore it and move to the next row.

Thanks

Andy


Private Sub CommandButton1_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.createfolder("E:/Customers and Contacts/")

a.Close


End Sub