Extra Quote Mark

  • Thread starter Thread starter bw
  • Start date Start date
B

bw

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
 
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?")
 
Hi,

Can you tell me what the difference is between Chr(10) and Chr$(10)? (The $
part rather than the 10.)

Thanks

John
 
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
 
In current versions of excel, there is no difference.

--
Regards,
Tom Ogilvy

John said:
Hi,

Can you tell me what the difference is between Chr(10) and Chr$(10)? (The $
part rather than the 10.)

Thanks

John
Click to expand...
 
Back
Top