Click a Cell and insert a wingding
Solved/Closed
Edwardav
-
May 11, 2010 at 08:50 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - May 11, 2010 at 10:11 PM
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 - May 11, 2010 at 10:11 PM
Related:
- Click a Cell and insert a wingding
- Insert a tick in word - Guide
- How to insert @ on a laptop - Guide
- How to insert a line in word for resume - Guide
- Disk boot failure insert system disk and press enter - Guide
- Insert key keyboard - Guide
1 response
rizvisa1
Posts
4478
Registration date
Thursday January 28, 2010
Status
Contributor
Last seen
May 5, 2022
766
May 11, 2010 at 10:11 PM
May 11, 2010 at 10:11 PM
You are on the right path
Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If Intersect(.Cells, Columns(2)) Is Nothing Or .Count > 1 Then Exit Sub Selection.Font.Name = "Wingdings" Select Case .Value 'if blank,then put checkmark Case "" .Value = "û" ' checkmark character in wingding 'if checkmark, then put cross Case Is = "û" .Value = "ü" ' cross mark character in wingding 'if cross, then clear Case Is = "û" .Value = "" 'default Case Else .Value = "" End Select End With