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

 

[Rick Rothstein]

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.

Is the "NextQote" macro name spelled correctly? (I would think there should be a "u" after that "Q")

 

[Graham52]

Hi Rick, Yes I know that but at the very beginning I was having a problem using the word quote (no idea why) but I changed it to Qote and all went fine. I have had no problems but since I started using it more I am getting this fault.

 

[RoryA]

Which version of Mac Office are you using?

That file path doesn't look right for a Mac, but that wouldn't explain the error message. Do you have a routine called NextQote in your code?

 

[Graham52]

Hi again, Its Excel 2016 but that path has worked before, if I run it in Finder and look for its path that is what comes up.

 

[RoryA]

And my other question?

 

[Graham52]

I'm almost certain its Office 365 if that's what you are after, it is on the work computer and I am at home now. Is that the question you mean?

 

[Graham52]

Hi is it Microsoft Excel for Mac Version 16.16.6?

 

[RoryA]

The other question was "Do you have a routine called NextQote in your code?"

 

[Graham52]

To be honest I am unsure what you mean but please bear with me as I am very new to this.