Not sure what help you need -

I pointed out that your code uses "basedooranswer" as a string literal.
If it's supposed to be a labeled cell, then you need to use it as the
reference to a range. For instance, instead of

If ("basedooranswer") = "FLUSH HOLLOW CORE" Then

it should be

If ActiveSheet.Range("basedooranswer").Text = _
"FLUSH HOLLOW CORE" Then

or perhaps:

If ActiveWorkbook.Names("basedooranswer").RefersToRan ge.Text = _
"FLUSH HOLLOW CORE"

In article <6db216958b566@uwe, "brownti via OfficeKB.com" <u31540@uwe
wrote:

Still need some help on this one. Thanks,