View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Norman Jones Norman Jones is offline
external usenet poster
 
Posts: 5,302
Default Incorrect msgPrompt

Hi Rodney,

Try:

Sub Test()
Dim msgPrompt As String, msgTitle As String
Dim msgButtons As Integer
Dim myResult As Integer
msgPrompt = "Error check complete" & Chr(13) _
& "Errors detected " & Range("CNT")
msgButtons = vbOKOnly
msgTitle = "LEDGER COLUMN ERROR CHECK"

MsgBox msgPrompt, msgButtons, msgTitle

End Sub


---
Regards,
Nnorman


"Cheif" wrote in message
...
I have a cell range named CNT. CNT contains the number of machine

detected errors after checking 75 ledger columns. Let's sat there are five.
Therefore, CNT would equal 5. I would like my msgPrompt to read:

Error check complete
Errors detected 5

I can not write line two of the msgPrompt correctly to include a formula

that includes the CNT value. Please help me with this line. Below is my
msgBox macro.

Dim msgPrompt As String, msgTitle As String, msgButtons As Integer
Dim myResult As Integer
msgPrompt = "Error check complete" & Chr(13) & "="Errors detected "&(CNT)"
msgButtons = vbOKOnly
msgTitle = " LEDGER COLUMN ERROR CHECK"
msgResult = MsgBox(msgPrompt, msgButtons, msgTitle)
--
Rodney Getschman
Wisconsin VFW