VBA to sve a file new f

[gladfan]

I am after a little help please, need to build a macro to save a file to a new folder.

So the bas path is already there say C:\files

and I have a way to save the file into the same name as cell b7

but what I want is to create a folder for it of the same name so the b7 would be the folder \b7 and the file also b7.xls

c:\files\b7\b7.xls

I can do the file name but for some reason I cant make excel write the new folder based on the cell name.

Help please!

 

[frank_AL]

Add this code to your code module. If the folder doesn't exist it will create it and save the file to that folder.

Dim FName As String

On Error Resume Next

FName = Cells(7, 2).Value
On Error Resume Next
MkDir "C:\Files" & FName
ActiveWorkbook.SaveAs FileName:="C:\Files" & FName & "" & FName & ".xlsm", FileFormat:=52
End Sub