View Single Post
 
Old 02-09-2015, 07:05 PM
excelledsoftware excelledsoftware is offline Windows 7 64bit Office 2003
IT Specialist
 
Join Date: Jan 2012
Location: Utah
Posts: 455
excelledsoftware will become famous soon enough
Default

Anything is possible. If you add this code to the worksheet module it should work. There other ways to do it without having to change the font to wingdings if you can live without a proper checkmark.

Insert this code by pressing Alt + F11 then double click the worksheet on the left and paste in.

Code:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Target.Font.Name = "Wingdings"
  Target.Value = Chr(252)
End Sub
Another note. The doubleclick method cannot be undone so if you try to use CTRL Z it will not undo. Not a huge issue because it is just a checkmark but you may want to put in data validation in cells that you do want to change.

Thanks
Reply With Quote