Macro - Save in specific location as cell name

[I heart Excel]

Hello,

I have a form that I am trying to save to a specific location and name it as a certain cell loaction. I have had a look around and have found the below, which apparently works perfectly, but no luck!!

I must be doing something very wrong as it keeps bugging and highlighting the section in blue below.

Please see the code I have in place at the moment -

Sub SaveAs1()
'
' SaveAs1 Macro
'
'
Sheets(Array("Sickness Form")).Select
Sheets("Sickness Form").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypexlsm, Filename:= _
"S:\aliclock\PAULINE SICKNESS TEST\" & Range("B11").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub

It needs to be a macro because they click on a Save button on the form, and away it 'should' go!!

Thank you soo much for your help in advance, have been stuck on this for about a week now, but wanted to resolve it, unfortunately no luck

 

[Gary McMaster]

What's in "B11"?

If that cell doesn't have the .xlsm on the end of the filename you may have to add it with your code.

"S:\aliclock\PAULINE SICKNESS TEST\" & Range("B11").Value [COLOR=Red]& ".xlsm"[/COLOR]

Gary