Sub checkmark()
If ActiveCell.Value = "YES" Then
With ActiveCell
.Value = "ü"
.Characters(Start:=1, Length:=1).Font.Name = "Wingdings"
End With
End If
End Sub
You could add this to the worksheet code to make it automagic og just use a
shortcut.
/Sune
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.