Save File to folder Where folder is referenced in cell

[Will_iam]

Hi,

I have an issue where I want to be able to save an excel file in to a specific folder with a macro.
This is what I currently have.

Public Sub SaveFile()

FName = Sheets("Sign Off Form").Range("C6").Text
ActiveWorkbook.SaveAs Filename:="J:\Projects\SMC\Sign Off Process\" & FName


 
End Sub

This macro works fine.
But what I also need is to be able to save the file into another sub folder which only gets created when the macro runs, this new folder is also named based on cell C6. This sub folder name needs to be unique and the same as the file name.

So really what I need the file path to look like is

J:\Projects\SMC\Sign Off Process\"C6"\"C6.xlm"

Any ideas on how I can achieve this?

[hulpeloos]

Sub hulpeloos()
dim reference as string
reference = Sheets("Sign Off Form").range("C6").text
If dir("J:\Projects\SMC\Sign Off Process\" & reference", vbDirectory) = "" Then
  MkDir "J:\Projects\SMC\Sign Off Process\" & reference
End If
ActiveWorkbook.SaveAs Filename:="J:\Projects\SMC\Sign Off Process\" & reference & "\" & reference & ".xlsm"
End Sub

[Will_iam]

Thanks for the reply,

Im getting a syntax error on this line?

If dir("J:\Projects\SMC\Sign Off Process\" & reference", vbDirectory) = "" Then

[hulpeloos]

remove the red "

If dir("J:\Projects\SMC\Sign Off Process\" & reference", vbDirectory) = "" Then

[Will_iam]

Ah yes! Thanks very much, working perfectly now.