Automatically save a file on a network drive

[Cablek]

I want to have a button in a workbook that will allow me to save a file name from values in C3 and D3 + add the date and save it to a network drive (eg. o:\customer drawings\ "value B3" \)

so to resume 1 I need to check to see if the folder exists, if not create it from value B3... then same file using C3+D3 + DATE

I have a partial code for C3 and D3 but not the folder name and it's also giving me an error

Private Sub CommandButton1_Click()
Dim Path As String
Dim Filename1 As String
Dim Filename2 As String
Path = "o:\Customer Drawings"
Filename1 = Range("C3")
Filename2 = Range("D3")
ActiveWorkbook.SaveAs Filename:=Path & Filename1 & "-" & Filename2 & ".xlsx", FileFormat:=xlNornal
End Sub

 

[Fluff]

How about

Private Sub CommandButton1_Click()
Dim Pth As String
Dim Filename1 As String
Dim Filename2 As String
Pth = "C:\Users\DaveC\Desktop\test\" & Range("B3").Value
Filename1 = Range("C3").Value
Filename2 = Range("D3").Value
If Dir(Pth, vbDirectory) = "" Then MkDir (Pth)
ActiveWorkbook.SaveAs FileName:=Pth & "\" & Filename1 & "-" & Filename2 & Format(Date, "dd-mm-yyyy") & ".xlsx", FileFormat:=51
End Sub

 

[Cablek]

That worked like a charm.... thank you Fluff..

 

[Fluff]

Glad to help & thanks for the feedback