View Single Post
  #2   Report Post  
Dave Peterson
 
Posts: n/a
Default

There's no left click you can tie into. You could base it on selection (either
the mouse or the keyboard), but you could use rightclick for this:

If that's ok, rightclick on the worksheet tab that should have this behavior.
Select view code and paste this into that code window:

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("a:a")) Is Nothing Then
Exit Sub
End If

With Target
If IsEmpty(.Value) Then
.Value = Chr(252)
.Font.Name = "Wingdings"
Else
.ClearContents
End If
End With
Cancel = True
End Sub

I used column A (range("a:a")), but you could specify any cells you wanted:

me.range("a1:b3,d9:f12,c:c")
for example.

FVC wrote:

Can I format (via Macro???) a cell so that if the user left clicks on the
cell a check mark appears without using the Control Toolbox. The cells with
such format will only need to then be the totaled (via =counta(x:x).


--

Dave Peterson