Macro to run on clicking "A2"

[im_kaushal]

Hi All,

How can I make my macro to run everytime I Double-Click on the cell "A2".

 

[lenze]

In the WorkSheet module (RightClick the sheet tab and choose "View Code")

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Address <> "$A$2" Then Exit Sub
'your code
End Sub

lenze

 

[im_kaushal]

Thanks alot for your reply.

It works fine.

Regards, Kaushal

 

[im_kaushal]

Just out of the curiosity one more question arises in my mind. What if my target range is "A2:A10" and I want my macro to run everytime I double click any of the cell in the above mentioned range.

Thanks,
Kaushal

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A2:A10")) Is Nothing Then Exit Sub
Cancel = True
'your code
End Sub

 

[im_kaushal]

Thanks peter,

It really works well.

Regards, Kaushal

 

[pedro-egoli]

Read this thread with interest and wondered if a variation to above code could be used whereby a double click on any cell in range A1:O100 would activate the macro to hide columns F:K.

My present macro is

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Cells.Count = 1 And Target.Address = "$A$2" Then
  If Target = "" Then
    Columns("f:T").EntireColumn.Hidden = False
  ElseIf LCase(Target.Value) = "h" Then
    Columns("F:k").EntireColumn.Hidden = True
  ElseIf LCase(Target.Value) = "2q" Then
    Columns("B:G").EntireColumn.Hidden = True
  End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

And columns are hidden when I insert "h" in A2.

Pedro

 

[VoG]

Try

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:O100")) Is Nothing Then Exit Sub
Cancel = True
Columns("F:K").Hidden = True
End Sub

 

[pedro-egoli]

Thanks VoG, that hides them ok but how do I unhide?

Pedro

 

[VoG]

Perhaps this: double click to hide, right click to unhide

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:O100")) Is Nothing Then Exit Sub
Cancel = True
Columns("F:K").Hidden = True
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:O100")) Is Nothing Then Exit Sub
Cancel = True
Columns("F:K").Hidden = False
End Sub