Thanks, but "always I7" isn't a huge improvement on "always D7"... or am I
missing something?

"Les Stout" wrote in message
...
Hi Olórin, hope this helps... ;0)
This will leave the cursor where it is but change the values of "I7"

Sub Tick()
'
Range("I7") = "ü"
With Range("I7").Font
.Name = "Wingdings"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.Bold = True
End With

End Sub


Best regards,

Les Stout

*** Sent via Developersdex http://www.developersdex.com ***