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

Dim rng As Range
Dim MyLastRow As String
Dim MyLastCol As Integer


Set rng =
Worksheets("mySheet").Range("A1").SpecialCells(xlC ellTypeLastCell)
MyLastRow = rng.Row
MyLastCol = rng.Column



Rows = "G1:G" & MyLastRow

If Not Intersect(Target, Range(Rows)) Is Nothing Then

Stop
End If

End Sub
---

What is supposed to happen (and sometimes does) is, if you
double click a cell in column G, it should stop at the Stop statement.

Otherwise it should do nothing.

But sometimes (and right know every time) it overwrites all the cells
with
"G1:Gxxx "and trashes around with the hard drive for ages. Eventually
I hit the reset buttion in disgust, and I can load the xls backin,
with all back to normal, until I click col G again.

I also can't step through it or figure what the probelm is.

Thanks - Kirk