Save as cell value - small issue

Hello all,

My second post after some excellent help the other day. I have a new workbook that I have created and the final function I need it to do is to save with a filename based on the value of a cell. I have written the below code which correctly opens up the save as window which is great, however the file name field is blank and not the value of cell C32.

Any tips or pointers to help me work this one out? Think it’s just failing to find the right cell value??


Sub Save()

Dim flToSave As Variant
Dim flName As String
Dim flFormat As Long

flFormat = ActiveWorkbook.FileFormat
flName = Worksheets("Store & Scheme Details").Range("C32").Value
flToSave = Application.GetSaveAsFilename _
(ThisWorkbook.Path & "\" & flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _
Title:="Save FileAs...")

If flToSave = False Then
Exit Sub
Else

ThisWorkbook.SaveAs FileName:=flToSave, FileFormat:=flFormat
End If

End Sub

I think this might do close to what you are wanting

Please Login or Register  to view this content.

Hello cheers for the response It works all the way up until the point of: Workbooks.Open Filename:=sPath & sFile


Where I'm then presented with the error that Excel cannot open the file as the file format or extension is not valid.

Just trying to work through it now, xlsm seems valid to me!