Compile error: Expected End Sub

[dvart]

Private Sub UpdateData()

'Initialise variables
    strDataAddress = wbNB.Worksheets("Calculations").Range("rDataAddress").Value
    
'Open data file
    Workbooks.Open (strDataAddress)
    Set wbData = ActiveWorkbook
    Set wsData = wbData.ActiveSheet

'Delete unrequired rows
    wsData.Rows("1:5").Delete
    
End Sub

---

Hi

My above code keeps coming up with the error 'Expected End Sub' but i've no idea why. The routine is called from a public routine that is assigned to a button. Can anybody help as it's driving me mental.

Thank you

 

[dvart]

I receive the same error message.

 

[steve the fish]

Where does the cursor go? That's where it expects to see the End Sub.

 

[dvart]

It highlights 'frmProcessing' right at the very end.

    Set wbNB = Nothing
    Set wsNB = Nothing
    Set wbData = Nothing
    Set wsData = Nothing
    
    Application.ScreenUpdating = True
    
    Unload frmProcessing
    End Sub

 

[steve the fish]

Check any code within the userform module. Repeat the processes.

 

[dvart]

The form doesn't have any code either. I bet if i rewrote it again into a new module I wouldn't have this problem.

 

[steve the fish]

Sorry had to go out. I have seen phantom things going on before in VBA so maybe. Never seen this before though.