Every sub needs an end sub. You code should end up looking something like this

Sub new_filings()
'Do something in here
end sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Code is placed in "ThisWorkbook"
'I don't think this is the one you want
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
'This must be places in the sheet
'Righ Click on tab NEW FILINGS - View Code
if Target.Address = "$F$2" then

else

endif
End Sub
--
HTH...

Jim Thomlinson


"Alex Martins" wrote:

Hi, I have been working on a Macro from some time now, and I find myself in
some trouble.

I need to insert a condition, which I have done accroding to the "events
change" chapter in cpearson.com

The only problem is that my macro code will now start-out like this:

Sub new_filings()
Private Sub Change(ByVal Target As Excel.Range)
If Target.Address = Worksheets("NEW FILINGS").Range("f2") Then
Application.EnableEvents = False
If Target.Value = 0 Then
'Dim strCnn As String

and I can't get around the error message that goes : "expected End Sub" and
it highlights: "Sub new_filings ()"

Thanks in advance for your help

Alex