Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Mr. Kabel, Can you help me with this?
Can anyone help me re-write this so that it only works with doubleclick?
Thanks, Kevin "Bob Phillips" wrote: 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) "Lee and Rebecca" wrote in message ... Going back to the question about making a cell show an X just by clicking on it. Can you walk me through the steps with programming the cell to do this. Came we talk thru reg. e-mail? thanks. |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Sum Product | Excel Worksheet Functions | |||
Frank Kabel: A Sad Day for the Excel Community | Excel Discussion (Misc queries) | |||
Frank Kabel: A Sad Day for the Excel Community | Excel Worksheet Functions | |||
Frank Kabel: A Sad Day For The Excel Community | New Users to Excel | |||
Frank Kabel: A Sad Day For The Excel Community | Setting up and Configuration of Excel |