Only run code if in column B

[ipbr21054]

Morning,
I have the code below in use but something isnt right.

My intention is that when i double click in a cell of column B the code will run BUT should a user double click in another column nothing will happen.

This is what happens.
I double click in column B & the code runs fine like it should.

However if i double click in any other column cell its like ive pressed F2 & now allowing to to make an edit ??
I see the flashing cursor in between the characters as if i was to delete / make a change.

Can you see what ive done wrong.

Thanks

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Lastrow As Long
    If ActiveCell.Column = 2 Then
    
    Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If Not Intersect(Target, Range("B8:B" & Lastrow)) Is Nothing Then
        Cancel = True

        If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        With Worksheets("MCVIN")
            .Activate
            .Range("F7").Value = Target.Value
          
        End With
    Else
    Exit Sub
    
    End If
    MotorcycleBikeInfo.Show
    End If
    
End Sub

 

[Peter_SSs]

You have not done anything wrong. The behaviour is just doing what you have in File-Options-Advanced-Allow editing directly in cells
If you don't like that setting then remove the tick from the checkbox and 'OK', or if you only want to disable that setting for this worksheet then put Cancel = True right near the top of your double-click code for this worksheet instead of where you have it now.

 

[ipbr21054]

Thanks.

Cancel = True was used

 

[Peter_SSs]

You're welcome. Glad to help.