VBA Express : Excel - Click any cell of row for a Checkmark in Column C

Excel

Click any cell of row for a Checkmark in Column C

Ease of Use

Easy

Version tested with

2000

Submitted by:

lucas

Description:

Sometimes I want a column for checkmarks. This script makes it easy.

Discussion:

Click on any cell and the row will be checkmarked in column C You can control which Column gets the checkmark by changing the code.

Code:

instructions for use

			Option Explicit 
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) 
    Dim IndexCol As String 
     'Set values
     'Change the C to the column where you want the numbers to show
    Application.EnableEvents = False 
    IndexCol = "C" 
    With Intersect(Target.EntireRow, Columns(IndexCol)) 
        .Value = "a" 
        .Font.Name = "Marlett" 
    End With 
    Application.EnableEvents = True 
End Sub

How to use:

Right mouse click on the sheet tab for any sheet you wish to have checkmarks.
select "View Code"
Paste the code above into the worksheet module and close the VBE window

Test the code:

Click on any cell of the sheet and your row will be checkmarked in Column C.
NOTE: This script depends on the Marlett font being installed. (Most users with MS Office software will have this font installed).

Sample File:

checkmark.zip 8.21KB

Approved by mdmackillop

This entry has been viewed 176 times.