or
If s_Fixup_String(sRptName, sRptName) sRptName Then
DoCmd.Rename s_Fixup_String(sRptName), acReport, sRptName
End If

.... But I'm having trouble in A2000:

Problem: In A2K I sometimes get an error like 'cannot continue ...
stop the code and try again' at DoCmd.Save. I need to SAVE
the CODE PROJECT before it will save the report. Works OK in A97.

does anyone have any insight?