A thought I guess what needs to happen is to copy the file with anew name
then procede with other code. need to study more new student at 68. having a
good time with it.
Thanks for any help
Curt

"Rowan Drummond" wrote:

You're welcome.

Helen wrote:
Works great.

Thanks!

Helen


"Rowan Drummond" wrote in message
...

Try:

Sub SaveAs()
Dim flname As String
Dim fullName As Variant
Dim filter As String
flname = "SaveName"
filter = "Excel Files (*.xls), *.xls"
fullName = Application.GetSaveAsFilename(flname, filter, , "MyFile")
If fullName < False Then
Application.DisplayAlerts = False
ThisWorkbook.SaveAs fullName
Application.DisplayAlerts = True
End If
End Sub

Hope this helps
Rowan

Helen wrote:

Hi,

I would like to create a button that opens the Save As command - if
possible?

Thanks,

Helen