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

Just a few notes. I don't know if you copied this from the workbook or
rewrote it here, but you have "colum" and not "column" in several spots.

Also, do you want/need any 'else' statement for when your value is not less
than one of 3, 6, 9, 12, 15?

"gareth" wrote:

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