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).
'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
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!