Dialog box subfolders

[rmwilson]

Is there a way to create a subfolder from a dialog box and pass that to ActiveWorkbook.SaveAs Filename:=. I already have this in my macro.

If Dir("c:\SCT", vbDirectory) = "" Then
MkDir "c:\SCT"
End If