Hello,

How can i change the cell value between empty and X when i click on the
cell.
This is for the cells in column B of all the visible sheets.

Can you provide some code please.....

Thanxxxx,

Luc

Paste this code into all visable sheets and change the range of B1:B10 to
your needs
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
Target.Value = "X"
End If
End Sub

"Luc" wrote:

> Hello,
>
> How can i change the cell value between empty and X when i click on the
> cell.
> This is for the cells in column B of all the visible sheets.
>
> Can you provide some code please.....
>
> Thanxxxx,
>
> Luc
>
> .
>

No need to paste Mike's code into all worksheets.

Paste this code once into Thisworkbook module.

Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
Target.Value = "X"
End If
End Sub

Covers all sheets.


Gord Dibben MS Excel MVP

On Thu, 10 Dec 2009 10:54:01 -0800, Mike <(E-Mail Removed)>
wrote:

>Paste this code into all visable sheets and change the range of B1:B10 to
>your needs
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
> Target.Value = "X"
> End If
>End Sub
>
>"Luc" wrote:
>
>> Hello,
>>
>> How can i change the cell value between empty and X when i click on the
>> cell.
>> This is for the cells in column B of all the visible sheets.
>>
>> Can you provide some code please.....
>>
>> Thanxxxx,
>>
>> Luc
>>
>> .
>>

Thanks guys,

But i also want to change the cell to Empty if the value is "X"
and change to "X" if it is empty (a kind of toggle)

Luc

Try it this way then...

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
If Target.Value = "" Then
Target.Value = "X"
Else
Target.Value = ""
End If
End If
End Sub

--
Rick (MVP - Excel)


"Luc" <(E-Mail Removed)> wrote in message
news:%239aX%(E-Mail Removed)...
> Thanks guys,
>
> But i also want to change the cell to Empty if the value is "X" and
> change to "X" if it is empty (a kind of toggle)
>
> Luc

Thanks, that really helped me !!