M
Michelle
This Workbook_BeforeSave code doesn't seem to work! There's a description
field that gets built in the StripOutSpecialCharacters subroutine once the
spreadsheet is saved and its not doing it.
When you do File-SaveAs manually and put it in a work folder when you open
the file the description is not built but if you save from the workfile the
Before_Save kicks in and builds the description in your saved copy.
The the heck is going on?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not CheckRules Then
MsgBox "Please fix the problems in this worksheet!", vbCritical,
"Errors Were Found"
Cancel = True
Exit Sub
Else
StripOutSpecialCharacters
'GetShortValue
End If
field that gets built in the StripOutSpecialCharacters subroutine once the
spreadsheet is saved and its not doing it.
When you do File-SaveAs manually and put it in a work folder when you open
the file the description is not built but if you save from the workfile the
Before_Save kicks in and builds the description in your saved copy.
The the heck is going on?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not CheckRules Then
MsgBox "Please fix the problems in this worksheet!", vbCritical,
"Errors Were Found"
Cancel = True
Exit Sub
Else
StripOutSpecialCharacters
'GetShortValue
End If