Thanks Dave,

I can't tell you how stupid I feel sometimes. Chr$(34) was suppose to be
Chr$(13), but I just couldn't see the mistake I had made.

I appreciate your help.
Bernie


"Dave Peterson" wrote in message
...
chr$(34) is that quote mark.

If you don't want it, delete it.

ans = MsgBox("Do you want to save a copy of the file as: " & Chr$(10) _
& fname, vbYesNo + vbQuestion, "Create Copy?")

If you want one at the other end, add one.

ans = MsgBox("Do you want to save a copy of the file as: " & Chr$(10) _
& Chr$(34) & fname & chr$(34), vbYesNo + vbQuestion, "Create
Copy?")



bw wrote:

CODE
fname = "ChkDigitsSent" & Format(Now(), "mm") & Format(Now(), "dd")
&
Format(Now(), "yy") & ".xls"
MsgBox fname ' There is no quote mark displayed here
ans = MsgBox("Do you want to save a copy of the file as: " &
Chr$(10) &
Chr$(34) & fname, vbYesNo + vbQuestion, "Create Copy?") ' There IS a
quote
mark displayed here (see below)

QUESTION
I'd like to know where the quote mark is coming from as is generated by
the
code above.

MESSAGE BOX
Do you want to save a copy of the file as:
"ChkDigitsSent013005.xls

--

Dave Peterson