Save exact copy of workbook
Got it
-----Original Message-----
When a user opens the workbook I want to rename and save
it as an exact copy including all macros and vba script
except for the rename portion. My initial filename will
be constant (maybe that is obvious) "testabc" so I guess
I could do an if current file name = testabc then do the
filename input box otherwise just continue on.
Private Sub Workbook_Open()
Dim fname As Variant
MsgBox "Blah Blah Blah", vbOKOnly
fname = InputBox("Please Enter file name", "filename")
????????.SaveAs filename:=fname
End Sub
.
|