How do I insert a "X" in a cell by single left clicking on a cell, a "X"
will apear. I have a dozen different forms on seperate tabs in one file with
many question that need to be answered by a left click on a cell (to save
time). The cells are in different rolls and columns and tabs

I am not very excel savey

Mac

Right-click on the sheet tab that you want to use and select the sheet tab
name in the VBA Project window. Ensure that the main window has Worksheet
at the top thencopy and paste this code into the Sheet Module:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Change Range("B2:B50") to the range that you want
If Intersect(Target, Range("B2:B50")) Is Nothing Then Exit Sub

Target.Value = "X"
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Mac 5430" wrote in message
...
How do I insert a "X" in a cell by single left clicking on a cell, a "X"
will apear. I have a dozen different forms on seperate tabs in one file
with
many question that need to be answered by a left click on a cell (to save
time). The cells are in different rolls and columns and tabs

I am not very excel savey

Mac

Sandy Mann,

Sorry, I don't understand. Could I email you the file and you make the
change and mail back to me?

Your address is:

I just email it to you

Thank you

Mac

"Sandy Mann" wrote:

Right-click on the sheet tab that you want to use and select the sheet tab
name in the VBA Project window. Ensure that the main window has Worksheet
at the top thencopy and paste this code into the Sheet Module:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Change Range("B2:B50") to the range that you want
If Intersect(Target, Range("B2:B50")) Is Nothing Then Exit Sub

Target.Value = "X"
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Mac 5430" wrote in message
...
How do I insert a "X" in a cell by single left clicking on a cell, a "X"
will apear. I have a dozen different forms on seperate tabs in one file
with
many question that need to be answered by a left click on a cell (to save
time). The cells are in different rolls and columns and tabs

I am not very excel savey

Mac

Hi Mac,

Your address is:


No that is not my address - mailinator.com is a spam trap that creates an
account for any e-mails that arrive, holds them for *a few hours* during
which time you can access them, then it deletes them. (There is no need to
sign up to anything it happens automatically for *any* e-mail that arrives).

As I have just come home from having an operation in hospital, I have just
found your post now and so your post is long gone from mailinator.

You can if you wish, send it to me directly by doing what it says in my
signature and replacing the mailinator.com with the real part of my
address - but please do *NOT* post my real address here for confirmation.

--
Regards,

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Mac 5430" wrote in message
...
Sandy Mann,

Sorry, I don't understand. Could I email you the file and you make the
change and mail back to me?

Your address is:

I just email it to you

Thank you

Mac

"Sandy Mann" wrote:

Right-click on the sheet tab that you want to use and select the sheet
tab
name in the VBA Project window. Ensure that the main window has
Worksheet
at the top thencopy and paste this code into the Sheet Module:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Change Range("B2:B50") to the range that you want
If Intersect(Target, Range("B2:B50")) Is Nothing Then Exit Sub

Target.Value = "X"
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Mac 5430" wrote in message
...
How do I insert a "X" in a cell by single left clicking on a cell, a
"X"
will apear. I have a dozen different forms on seperate tabs in one
file
with
many question that need to be answered by a left click on a cell (to
save
time). The cells are in different rolls and columns and tabs

I am not very excel savey

Mac

how would you set up this same procedure to toggle between "" and "X"?


"Sandy Mann" wrote:

Right-click on the sheet tab that you want to use and select the sheet tab
name in the VBA Project window. Ensure that the main window has Worksheet
at the top thencopy and paste this code into the Sheet Module:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Change Range("B2:B50") to the range that you want
If Intersect(Target, Range("B2:B50")) Is Nothing Then Exit Sub

Target.Value = "X"
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Mac 5430" wrote in message
...
How do I insert a "X" in a cell by single left clicking on a cell, a "X"
will apear. I have a dozen different forms on seperate tabs in one file
with
many question that need to be answered by a left click on a cell (to save
time). The cells are in different rolls and columns and tabs

I am not very excel savey

Mac

This will toggle the X on and off:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Change Range("B2:B50") to the range that you want
If Intersect(Target, Range("B2:B50")) Is Nothing Then Exit Sub
If Target.Value = "X" Then
Target.Value = ""
Exit Sub
End If
Target.Value = "X"
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"scott" wrote in message
...
how would you set up this same procedure to toggle between "" and "X"?


"Sandy Mann" wrote:

Right-click on the sheet tab that you want to use and select the sheet
tab
name in the VBA Project window. Ensure that the main window has
Worksheet
at the top thencopy and paste this code into the Sheet Module:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Change Range("B2:B50") to the range that you want
If Intersect(Target, Range("B2:B50")) Is Nothing Then Exit Sub

Target.Value = "X"
End Sub

--
HTH

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Mac 5430" wrote in message
...
How do I insert a "X" in a cell by single left clicking on a cell, a
"X"
will apear. I have a dozen different forms on seperate tabs in one
file
with
many question that need to be answered by a left click on a cell (to
save
time). The cells are in different rolls and columns and tabs

I am not very excel savey

Mac