You can set a range like this
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("b3:b10")
If Not Application.Intersect(Target, rng) Is Nothing Then
If Target.Value = vbNullString Then
Target.Value = 1
Else
Target.Value = vbNullString
End If
End If
Cancel = True
End Sub
or if you want to used a range already set up do it like this
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Worksheets("sheet1").Range("rangeone")
If Not Application.Intersect(Target, rng) Is Nothing Then
If Target.Value = vbNullString Then
Target.Value = 1
Else
Target.Value = vbNullString
End If
End If
Cancel = True
End Sub
Bookmarks