Autoname a save as file from a cell in a read only file
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
g4rod wrote:
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
--
Dave Peterson
|