Have text where in the row? Anywhere or in a single columnn

assume column G and the text are constants

set rng = columns(7).specialcells(xlconstants,xltextvalues)
set rng1 = Intersect(rng.entireRow, Columns(8))
rng1.Value = Activesheet.name

--
Regards,
Tom Ogilvy


"ploddinggaltn" wrote:

I would like to add the sheet name to cell H in the worksheet but only those
rows that have text in them. How would I do that with code? Thanks