sStr = Trim(Range("A1") & Range("A2") & Range("A3") & Range("A4"))
msgbox sStr

or

for each cell in Range("A1:A4")
if not isempty(cell) then
sStr = cell.Value
exit for
end if
Next
msgb sStr


--
Regards,
Tom Ogilvy


"joe" wrote in message
...
I am trying to write an equation that will search the
contents of 4 cells and return the value of the only cell
with data. Any ideas on how to do that?