Try this:

Sub test()
For i = 1 To 7
Cells(i, 1).Select
If Selection.EntireRow.Hidden = True Then
'do nothing
Else
Set msgbody = Cells(i, 1)
MsgBox msgbody
Exit Sub
End If

Next
End Sub

It should give you some ideas

Peter Atherton

"brownti via OfficeKB.com" wrote:

Does anyone have some example code that will set values in a string based on
a condition? For example if row 1 is hidden go on to row 2. If Row 2 is not
hidden set MSGBODY = Range("A2"). If Row 3 is not hidden set MSGBODY = (All
previous conditions and also) Range("A3"). And so on....

I cant figure out how to keep one condition will adding another condition to
the string. What i have is seven rows, some are hidden and some are not.
Depending on if the row is hidden or not i want to put a value from that row
into a string and then use that string in an email message using .Body. Any
ideas?

--
Message posted via http://www.officekb.com