Hi Frank,
Thanks, it works well. Can it be used in the range of cells for example from
range "a2:a400"?
how do u coded in vba?

thanks.

regards,
Ben



"Frank Kabel" wrote:

Hi
try
with activesheet.range("A1")
if .Font.Strikethrough or .offset(0,1).Font.Strikethrough then
.offset(0,3).value="is strikethrough"
end if
end with

"Ben" wrote:

Hi,

How can i coded in vba to check whether the column of two words in the cells
has the font strikrthrough equal to true and append the word in cell with "is
strikethrough".
example: column a column b column d
apple apple apple is strikethough


where apple is strike through.

thanks,

regards,
Ben