Hey everyone, I know I am really close here..I have the code working except for the second part where I need the double click to work on not just one cell but on a range of cells..So instead of jumping to the Notes page when I double click A13 I want it to work when I click on any cell in the range of A13:A250
Here is the code..Any help would be greatly appreciated.. thanks
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rInt As Range
Dim rcell As Range
Set rInt = Intersect(Target, Range("B10:B250"))
If Not rInt Is Nothing Then
For Each rcell In rInt
rcell.Value = "2"
Next
End If
If Target.Address = "$A$13" Then
Cancel = True
Worksheets("Notes").Activate
ActiveSheet.Range("A1").Select
End If
Set rInt = Nothing
Set rcell = Nothing
Cancel = True
End Sub
Bookmarks