Hello all,

I have the following code that's used to ask the user if he/she would
like to use a particular naming convention:

Sub xlsSaveAs()

Dim Why As Integer
Dim Answer As String

Why = MsgBox("Use Naming Convention?", vbYesNo, "FILE NAMING")

If Why = vbYes Then
UserForm1.Show
Answer = UserForm1.ComboBox1.Value & "_" &
UserForm1.ComboBox2.Value & "_" & UserForm1.TextBox3.Value & "_" &
UserForm1.TextBox4.Value
Application.Dialogs(xlDialogSaveAs).Show Answer

Else
Application.Dialogs(xlDialogSaveAs).Show

End If
End Sub

I would like this code to execute upon any Save command; e.g., Save |
Save As | etc. Any suggestions on how to do this? Also...

I would like this code to be stored in such a way that it's available/
activated whenever I open Excel. Is that as simple as storing the
code in the Workbook object of Book.xlt?

Any help is appreciated.
alex