Hi Jolivanes
It works. It was still playing up depending on where my cursor (ActiveCell) was but I've included a line to send it to the top so it's working perfectly now.
So the portion of the code now looks like this:
Code
Dim myRange As Range
Dim myEmail As String
sh2.Cells(1, c).Select
For Each myRange In sh2.Range(ActiveCell, ActiveCell.Offset(20, 0))
If IsEmpty(myRange) = True Then
myEmail = myEmail & sh2.Cells(myRange.Row, 2).Value & ", " & sh2.Cells(myRange.Row, 1).Value & ";"
End If
Next myRange
I had tried
to send it to the top but for some reason that wouldn't work.
Thanks for your help, as usual! I am learning. (I'm also having fun.)
Christine