Check marks with mouse click in Excel Spreadsheet

  • Thread starter Thread starter Rikia
  • Start date Start date
R

Rikia

Can somebody help me with this dilema. I want to have checks each tim
I'm in a row/column in an excel spreadsheet, sort of like checking of
things done on a chore list, but using the mouse left click.

Anyone??????

Thanks
Riki
 
Rikia, here is one way

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

'**Put in worksheet code will put a check mark in column C,
'when you click in it, Click in the cell again and it will remove it

If Target.Count > 1 Then Exit Sub
If Target.Column = 3 Then
If Len(Trim(Target.Value)) = 0 Then
Target.Value = Chr(252)
Target.Font.Name = "Wingdings"
Target.Font.Size = 10
Else
Target.ClearContents
End If
End If
End Sub


--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2000 & 97
** remove news from my email address to reply by email **
 
Back
Top