Autoname a save as file from a cell in a read only file

G

g4rod

I have a read only file set up to type in monthly staff hours, when you go to
save the file it points you to a save as box as it is a read only file. I
have used concatenate to use information from the table to produce a
standardised file name. Is there any way to set the properties so when the
save as box appears it will name the file from a cell in the table?

Cheers

Garod
 
D

Dave Peterson

If you use a macro, you could show the dialog with that drive/folder/filename:

Option Explicit
Sub testme()

Dim myFileName As String

With Worksheets("Sheet1")
myFileName = "C:\temp\" & .Range("A1").Value & ".xls"
End With

Application.Dialogs(xlDialogSaveAs).Show myFileName
End Sub
 
Top