Thread: sheet code help
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
gareth gareth is offline
external usenet poster
 
Posts: 37
Default sheet code help

I have some Worksheet_Change code that I want to use but
cannot get it to work. I've probably got it all wrong but
a pointer in the right direction would be appreciated:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count 1 Then Exit Sub
If Target.Column = 3 Or Target.Column = 6 Or Target.colum
= 9 Or Target.Column = 12 Or Target.colum = 15 Then
On Error GoTo errhandler
Application.EnableEvents = False
'do loads of stuff

End If
errhandler:
Application.EnableEvents = True
End Sub

TIA

Gareth