An Rainer (Ramses) VBA Experte

Sub Set_OK_Sign(myR As Integer, myC As Integer)
Cells(myR, myC).Formula = "q" 'OK
With Cells(myR, myC).Characters(Start:=1, Length:=2).Font
.Name = "Wingdings 2"
.Size = 16
End With
End Sub

Sub Rainer()
Call Set_OK_Sign(1, 1)
End Sub