G
Guest
I saw a very similar message posted 2 months ago but without a resolution. I am using Excel 2003, Windows 2000 Pro and get "Unable to set Underline property of the Font class" in my VBA code
Dim cActive As Rang
Set cActive = ActiveSheet.Range("$A$1"
With cActiv
With .Fon
If .Underline <> xlUnderlineStyleSingle Then .Underline = xlUnderlineStyleSingl
End Wit
End With
Dim cActive As Rang
Set cActive = ActiveSheet.Range("$A$1"
With cActiv
With .Fon
If .Underline <> xlUnderlineStyleSingle Then .Underline = xlUnderlineStyleSingl
End Wit
End With