This is a line of code that i use to create folders on my computer with what
ever value B3 is, now what i would like to do is by clicking a button have it
look under a certain folder and audomaticlly enter the next 5 digit number
and create a folder with that number and put it into a cell in my worksheet
like this - 10001, 10002, 10003, etc......

MkDir "C:\\Globe Photo Engraving\Jobs\" & Range("B3").Value

David,

I have assumed the sheet name is Sheet1 - enter the starting number in cell B3 there, and run this
macro:

Sub CreateFolder()
Dim MyFilePath As String
Dim FolderC As Integer

MyFilePath = "C:\Globe Photo Engraving\Jobs\"
FolderC = Worksheets("Sheet1").Range("B3").Value
On Error GoTo FolderExists '<< in case folder exists
TryAgain:
MkDir MyFilePath & FolderC '<< create folder
Worksheets("Sheet1").Range("B3").Value = FolderC + 1
Msgbox "I just created the folder " & MyFilePath & FolderC
Exit Sub
FolderExists:
FolderC = FolderC + 1
Resume TryAgain
End Sub


--
HTH,
Bernie
MS Excel MVP


"David Shoemaker" <(E-Mail Removed)> wrote in message
news:389F4F7E-F231-4879-8781-(E-Mail Removed)...
> This is a line of code that i use to create folders on my computer with what
> ever value B3 is, now what i would like to do is by clicking a button have it
> look under a certain folder and audomaticlly enter the next 5 digit number
> and create a folder with that number and put it into a cell in my worksheet
> like this - 10001, 10002, 10003, etc......
>
> MkDir "C:\\Globe Photo Engraving\Jobs\" & Range("B3").Value