Excel locks with a worksheet macro and protection on

[spnnrmn]

I have the following macro on my worksheet to test to see if the user is on cells in column G$

/code
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col As String
col = Left(Target.Address, 2)
'if the user clicks in the products col, then pop a userform
'that can parse and store the products
If col = "$G" Then
'macro
frmProducts.Show
End If
End Sub
/code

with protection off, things are fine. However turning protection on and having the cursor in an A$ cell, the user can press the left arrow and lock Excel.

Any suggestions on how to stop this from happening?

Thanks,
Philip

 

[Cbrine]

Here's a better structure to detect a target match. I tested this and it works fine. If excel freezes with it, then it must be your form.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim col As Range
Set col = Intersect(Target, Range("G:G"))
If Not (col Is Nothing) Then
     frmProducts.Show
End If
End Sub

HTH
Cal

 

[spnnrmn]

Thanks!