teste om en celle er formateret FED eller UNDERLINE

Public Sub SetAlignment()
    Dim objRange As Range
    Dim i As Integer
   
    Set objRange = ActiveSheet.Range("A:A")
   
    For i = 1 To 100
        If objRange.Cells(i, 1).Font.Underline <> -4142 Or objRange.Cells(i, 1).Font.Bold = True Then
            objRange.Cells(i, 1).HorizontalAlignment = xlLeft
        Else
            objRange.Cells(i, 1).HorizontalAlignment = xlRight
        End If
    Next i
   
    Set objRange = Nothing
End Sub

jep, den virker lige som den skal.
Takker mange gange.
Har du svar så har jeg et point.

Jeg har lige en fortsættelse af spørgsmålet, men den tager jeg lige i et nyt spg.

Velbekomme.