ClearContents underlined cells within a range

[getafixkwik]

Hi.
I need VBA help to clearcontents all underlined text within this range A1:I9.
and at the same time roll back to default text format where underlined cell was cleared.
thanks

[AB33]

Not sure I understand the second request

Please Login or Register  to view this content.

[getafixkwik]

AB33

thanks for your quick reply.
the second request is to clear next input to those cleared cells being underlined.

thanks

[AB33]

Let's say A1 is underlined and A2 is not. What do you want to do with each cell?

[AB33]

Do you mean

Please Login or Register  to view this content.

?

[getafixkwik]

AB33,
A1 is cleared from underline. next input to A1 should be like A2.
regular. no format. by the way, all underlined cells are manually formatted by pressing U.
thanks again

[AB33]

So you want the cleared cells to be formatted as normal. Right?
replace
Cel = "'" & Cel

with
Cel.NumberFormat = "@"

[AB33]

Hmm! Sorry I now got it.
Clearcontents does not clear the formats but only values

Please Login or Register  to view this content.

[getafixkwik]

AB33,
I have replace the code.
Cel = "'" & Cel to Cel.NumberFormat = "@"
the underline format is still present.

[AB33]

Did you check my code #8?

[getafixkwik]

AB33.

Your code does the job. Thank you!

[JEC.]

How about

Please Login or Register  to view this content.

[getafixkwik]

Hi JEC.
Thanks for your input.
please refer to #6. Solution provided on #8.
Thank you.