Ouka,

Maybe something like this:

(If your not already putting Option Explicit at the top of each module, you
should do so - you dimmed "trmLoopsSize" but used "trmLoopsize" (one less S)
in your code.)

Regards,

Patti
--------------
Sub tester()

Dim M As Integer
Dim trmLoopsSize As Integer
Dim strMsg As String

strMsg = "Please review this data for entry: " & Chr$(13) _
& Chr$(13)

Do
trmLoopsSize = M
M = M + 1
Loop Until Worksheets("Hidden1").Cells(M, "H").Value = ""
Debug.Print trmLoopsSize

For M = 1 To trmLoopsSize
strMsg = strMsg & Worksheets("Hidden1").Cells(M, "H").Value & " " _
& Worksheets("Hidden1").Cells(M, "I").Value & " " _
& Worksheets("Hidden1").Cells(M, "J").Value _
& Chr$(13)
Next M
MsgBox strMsg
End Sub



"Ouka" wrote in message
...

Hi all,

I was wondering if it was possible to put code inside the MsgBox object
that would dictate what info the messagebox would display?

Description of project:

I have a userform that allows for the seriel entry of date, name, sex

This information is dumped into a hidden sheet where it is sorted on
date (after clearing the columns of previously entered data)

I then have a loop that determines how many entries there a

Dim M as Integer
Dim trmLoopsSize as Integer

Do
trmLoopSize = M
M = M + 1
Loop Until Woorksheets("Hidden1").Cells(M, "H").value = ""



Now, I can get each of the rows of data to output into their own
message box with the code:

For M = 1 to trmLoopSize
MsgBox "Please review this data for entry: " & chr$(13) _
& chr$(13) _
& Worksheets("Hidden1").Cells(M, "H").Value _
& " " _
& Worksheets("Hidden1").Cells(M, "I").Value _
& " " _
& Worksheets("Hidden1").Cells(M, "J").Value _
& Chr$(13)
Next M


However, what I really want to happen is to have all that info in a
single message box, but I can't seem to get the syntax right.

Any help would be most appreciated.

PS - how do you get indented text to work in a vB forum other than
masking text placeholders with the background color?


--
Ouka
------------------------------------------------------------------------
Ouka's Profile:
http://www.excelforum.com/member.php...o&userid=23988
View this thread: http://www.excelforum.com/showthread...hreadid=388521