will this do it?
sub putemtogether()
for each c in range("h3:H20")
mystr=""
if c<"FALSE" then mystr=mystr & c
next c
msgbox mystr
end sub
--
Don Guillett
SalesAid Software

"Barb Miles" wrote in message
...
I would like to concatenate the following cells, only if they don't contain
the word FALSE.

H3 - Subordinations ,
H4 - FALSE
H5 - FALSE
H6 - Inventory Verification Cycle ,
H7 - FALSE
H8 - FALSE
H9 - FALSE
H10 - FALSE
H11 - FALSE
H12 - FALSE
H13 - FALSE
H14 - Advance Rates ,
H15 - FALSE
H16 - FALSE
H17 - FALSE
H18 - FALSE
H19 - FALSE
H20 - FALSE

--
Barb