Save as

[Eric]

I am saving an array of three sheets from with in a workbook. It will go
through all the process of asking name and everything like that but won't
save the file. Here is the macro that I am using .... any help would be
appreciated. Many thanks

sub save_as()

Sheets(Array("JMF Coversheet", "Properties", ".45 Power Chart")).Select
Sheets(".45 Power Chart").Activate
Sheets(Array("JMF Coversheet", "Properties", ".45 Power Chart")).Copy

strFile = Application.GetSaveAsFilename
If strFile <> "False" Then
If Right(strFile, 3) <> "xls" Then
strFile = strFile & "xls"
End If
Else
MsgBox "File will not be saved at this time.", vbOKOnly, "Cancel Selected"
End If
Sheets("JMF Coversheet").Select

end sub

 

[Joel]

Application.GetSaveAsFilename only gets the filename, it doesn't do any
saving. You need a saveas instruction

activeworkbook.saveas filename:=Strfile