Press space bar or click on mouse button to insert a check mark in

Press space bar or click on mouse button to insert a check mark in

Post by cnlndXk3Mj » Sat, 25 Jul 2009 00:58:02

You've come to the right place! Here is one way:

Right-click the sheet tab and paste this code into the window that opens:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Cancel = True
If Not Intersect(Target, Range("A1:AZ100")) Is Nothing Then
If Target = "P" Then
Target = vbNullString
ElseIf Target = vbNullString Then
Target = "P"
Else
End If
End If
End Sub

Format cells as Wingdings2

Also, from a recent post by Jacob Skaria (I've learned so much from this guy).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A100")) Is Nothing Then
If Target.Count = 1 Then
Target.Font.Name = "Marlett"
Target.Value = IIf(Target.Value = "r", "e", "r")
'Target.Value = IIf(Target.Value = "a", "e", "a") 'For tick mark
End If
End If
End Sub

That will give you an X, not a check, but you may find a use for it
nevertheless...and it is very cool too...

HTH,
Ryan---


--
Ryan---
If this information was helpful, please indicate this by clicking ''Yes''.