Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Dim MAX_ROW As Long
Const MIN_ROW As Long =  4 
Const MIN_COL As Long =  3 
Const MAX_ROW As Long =  12  ' это значение мне надо сделать изменяющимся. 
Const MAX_COL As Long =  33 

Dim nArr(MIN_ROW To MAX_ROW, MIN_COL To MAX_COL) As Long

' проверяем на попадание в рабочий диапазон
If Target.Row >= MIN_ROW And Target.Row <= MAX_ROW And _
    Target.Column >= MIN_COL And Target.Column <= MAX_COL Then

        If Selection.Interior.Color = CollorEdit Then
                ActiveCell.Select
                ActiveCell.Value = ""
                Selection.Interior.ColorIndex =  0 
    
                    Else: Selection.Interior.Color =  0 
                        ActiveCell.Select
                        Selection.Interior.Color = CollorEdit
        End If
End If
End Sub

Const MIN_ROW As Long =  4 
Const MIN_COL As Long =  3 
Const MAX_ROW As Long =  12  
Const MAX_COL As Long =  33