Hi
The following code is used to allow the user to double click on any cell in column B or D of that worksheet and peform a routine (in this case, a simple message box appears).
Code
'To enable to user to double click on cell to select equipment
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Check As Integer
Check = ActiveCell.Column
If Check = 2 or Check = 4 Then
MsgBox "Found Column"
Exit Sub
End If
End Sub
Display More
My problem is that it slows down any work on that worksheet. If I select a cell or anything, the bottom left hand side of the screen says "Calculating cells" and counts from 0 to 100%.
Any idea of how I can avoid this? It is very annoying!
Cheers
Johno