One more (in case the user selects multiple cells):

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Me.Range("C:C")) Is Nothing Then
Exit Sub
End If

Application.EnableEvents = False
Me.Range("a1").Select
Application.EnableEvents = True

End Sub



DRICE wrote:

I am trying to programmaticly (vba) prevent users from editing any cell in
one specific column without haveing to 'protect' the entire worksheet.

--

Dave Peterson