Set Saveas Filename from Cell Contents Using VBA

  • Thread starter Thread starter Celtic_Avenger
  • Start date Start date
C

Celtic_Avenger

Can anyone help me with this one.

I am creating a workbook that creates new workbooks with specific dat
from the original workbook.

I have sorted a maco to open the SaveAs dialog box

I need a way of setting the Initialfilename property to the content o
a cell found within that workbook.

Can this be done.

I truely hope so
 
fname = Application.GetSaveAsFilename(InitialFilename:= _
Worksheets("Sheet1").Range("B9").Value, _
FileFilter:="Excel Files (*.xls), *.xls")

Activeworkbook.SaveAs Filename:=fName
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Back
Top