Identify Cell with Single Underline 2

[PeterMoran]

Hi,

I have this function to identify cells with formulas:

Function HasFormula(Check_Cell As Range)
'
' HasFormula Function
' Checks whether a cell has a formula - TRUE/FALSE
' =HasFormula(A1)
'
    HasFormula = Check_Cell.HasFormula
End Function

I would like something virtually identical to identify if a cell has a single Underline, as ther does not appear to be a "HasUnderline" reference in VBA.

Any help greatly appreciated.

Thanks,

Peter Moran

 

[SkipVought]

hi,

Functions return values not formats.

However, your requirement can be quite easily done using Excel's native Conditional Formatting feature. Use your HasFormula function in the CF formula and format your CF as required.

No additional VBA required.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[GlennUK]

You'd use something like:

If Check_Cell.Font.Underline = 2 Then

in your code.


Cheers, Glenn.

Beauty is in the eye of the beerholder.

 

[SkipVought]

Boy I missed that one!

You might have ALL the characters underlined or only SOME of the characters underlined. It's a bit different than a formula, which for a cell is binary.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[PHV]

Like this ?

Function IsUnderlined(Check_Cell As Range)
    IsUnderlined = (Check_Cell.Font.Underline = xlUnderlineStyleSingle
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PHV]

OOps, missed closing paren.

Function IsUnderlined(Check_Cell As Range)
    IsUnderlined = (Check_Cell.Font.Underline = xlUnderlineStyleSingle)
End Function

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PeterMoran]

Hi,

Thanks Skip and GlennUK.

Used GlennUK's code

Much appreciated.

Peter Moran

 

[PeterMoran]

Hi,

Thanks PHV also.

Regards,

Peter Moran