Macro "sub or function not defined"

[Graham52]

Hi there,
I have a macro that works fine but it seems everytime I do other work and come back to it I get this message "sub or function not defined". I have debugged it and get the following, this is the macro. I am using a Mac computer and suspect the problem may be related.

Sub SaveQoteWithNewQote()
        Dim NewFN As Variant
        ' Copy Qote to a new workbook
        ActiveSheet.Copy
        NewFN = "desktop\quotes\Quote" & Range("B1").Value & ".xlsx"
        ActiveWorkbook.SaveAs NewFN, FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close
        NextQote
        
End Sub

The first line is is highlighted yellow and the last line (NextQote) is blue. I don't understand why it works sometimes but then refuses to work.

Thanks for any help you can give.
Graham

 

[Graham52]

So sorry for this but I also have this macro running if that's what you mean,

Sub NextQote2()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Range("B1").Value = ws.Range("B1") + 1
ws.Range("A22,B6,D1,D2,D3,F20,F25,G24,G25,H25,I24,I25,I27,J20, J25,J27,K20,K21,L25").ClearContents
Next
End Sub

 

[RoryA]

Unless you have a macro that starts with Sub NextQote(), your first code won't ever work since its calling a routine called NextQote and you don't seem to have one.

 

[Graham52]

Hi Rory thank you so much for your reply and I worked that out and now solved my own question. Only thing now is that the path I have selected it to save the file is not working, it only saves to my desktop. I think its a Mac thing, it seems it was I just used the forward slash instead of the back slash and all is good.

Thanks for your interest
Graham