Changing cell color in a range of cells

[mmdmalta]

Hello, I have figured out the VBA formula to change cell color when double click, right click etc... however, i only want it to this on a specific section of the worksheet and not the whole worksheet. Here is what i entered in the VBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.Color = vbYellow
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
Target.Interior.Color = Cancel = False
Target.Interior.Color = vbGreen
End Sub

What do i need to do to get it to only do this in the range of a43 to e44?

Thank you for your help.

 

[tonyyy]

mmdmalta,

You might consider the following...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A43:E44")) Is Nothing Then
    Cancel = True
    Target.Interior.Color = vbYellow
End If
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A43:E44")) Is Nothing Then
    Cancel = True
    Target.Interior.Color = Cancel = False
    Target.Interior.Color = vbGreen
End If
End Sub

Cheers,

tonyyy

 

[Osvaldo Palmeiro]

Try:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, [A43:E44]) Is Nothing Then Exit Sub
 Cancel = True
 Target.Interior.Color = vbYellow
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, [A43:E44]) Is Nothing Then Exit Sub
 Cancel = True
 Target.Interior.Color = vbGreen
End Sub

 

[mmdmalta]

Tonyyy,

That worked!!! I was just missing the second parenthesis in the Range. Good to know. Thank you so much!!!.

 

[mmdmalta]

Osvaldo, Thank you !! That worked!

 

[tonyyy]

You're very welcome...