Sub Test()
'LName is the merged range of cells, on the worksheet, of cells A1 to
'A3
Worksheets("Sheet1").Range("LName") = "Anderson"
'Test to see what "LName" is
If Range("LName")(1).Value < "" Then MsgBox "Yes"
End Sub

would be simpler.

--
Regards,
Tom Ogilvy




" wrote:

Here is what I got to work finally. It is pretty simple now that I
understand it more but it took a bit to get to it.
Thanks for all the help Mark


Scott


Sub Test()
'LName is the merged range of cells, on the worksheet, of cells A1 to
A3
Worksheets("Sheet1").Range("LName") = "Anderson"
'Test to see what "LName" is
If Cells(Range("LName").Row, Range("LName").Column).Value < ""
Then MsgBox "Yes"
End Sub