Thread: Worksheet_change event
View Single Post
  #8   Report Post  
Posted to microsoft.public.excel.programming
Gary''s Student Gary''s Student is offline
external usenet poster
  
Posts: 11,058
Default Worksheet_change event
Try:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 7 Then
Application.EnableEvents = False
Target.Offset(1).Value = "x"
Application.EnableEvents = True
End If
End Sub
--
Gary''s Student - gsnu2007k
Reply With QuoteReply With Quote