Save file as the contents of two cells.

[Billy]

I read Nate's answer to saving a file as the contents of one cell:

Sub save_itas2()
fname = Application.GetSaveAsFilename _
(InitialFilename:=Range("a1"), _
FileFilter:="Excel Files (*.xls),*.xls", FilterIndex:=0, Title:="Save As")
If fname <> "False" Then
ActiveWorkbook.saveas Filename:=fname
End If

End Sub

How do I save the file as the contents of two cells?

All help is appreciated.

 

[Guest]

On 2002-03-01 21:56, Billy wrote:
I read Nate's answer to saving a file as the contents of one cell:

Sub save_itas2()
fname = Application.GetSaveAsFilename _
(InitialFilename:=Range("a1"), _
FileFilter:="Excel Files (*.xls),*.xls", FilterIndex:=0, Title:="Save As")
If fname <> "False" Then
ActiveWorkbook.saveas Filename:=fname
End If

End Sub

How do I save the file as the contents of two cells?

All help is appreciated.

try something like;

InitialFilename:=Range("a1")& Range("B20")

Ivan

 

[Ivan F Moala]

yes

 

[Billy]

Thanks!