fortsættelse af teste om en celle er FED

Dette er en fortsættelse af følgende spg.

http://www.eksperten.dk/spm/813083

Hvis cellen ikke er fed vil jeg meget gerne have indsat et mellemrum i cellen. (i slutningen af cellen, efter den tekst der står der)
Det gælder for hele kolonne A
Jeg har allerede fået følgende kode, der tester om cellen er fed eller ej.





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