Danz,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo sub_exit
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
With Target
If .Value = "a" Then
.Value = ""
Else
.Value = "a"
.Font.Name = "Marlett"
End If
.Offset(0, 1).Select
End With
End If
sub_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Danz" wrote in message
...

hi all, first time ive been here so please bear with me. the problem i
have is that i know nothing about writing macro's (all i know is how to
open VB Editor,lol) i have been given the task of trying to work out a
macro for a spreadsheet we use, basically what it needs to do (if it
can be done) is this : we have a coloum that needs to have a 'tick'
icon in the cell, however if we can we would like this to happen by
just being able to click on the cell and the icon appears and then if
we click on the same cell the icon will be removed, this same action
needs to happen on each cell in that coloumn so we can go down to any
cell and put a tick in it just by clicking the box like a checklist. I
hope this explains it ok if not then please tell me what info would be
useful and i will try my best. Any advice on how i do this is greatly
appreciated, thanks in advance.


--
Danz
------------------------------------------------------------------------
Danz's Profile:
http://www.excelforum.com/member.php...o&userid=16448
View this thread: http://www.excelforum.com/showthread...hreadid=278087