Ark68
Well-known Member
- Joined
- Mar 23, 2004
- Messages
- 4,562
- Office Version
- 365
- 2016
- Platform
- Windows
Rich (BB code):
With .Range("AP2:AX2")
Application.DisplayAlerts = False
.Merge
Application.DisplayAlerts = True
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.Color = vbWhite
End With
.Interior.Color = RGB(211, 6, 6)
.Value = st_cd & " " & Chr(208)
.Characters(Len(.Value), 1).Font.Name = "Webdings"
End With
This code formats a range of cells (AP2:AX2), assigns a value (string + a couple spaces + special character).
The majority of the text is in it's native font, but the last character assumes the Webdings font.
I am getting a "Type mismatch error" with the line in red, specifically with the font name. I have used this similar line of code throughout my application with no issue, but in this particular case, it errs.