Macro created in PC Excel returns Run-time error 448 when run in Mac Excel

[Rlhoffarthexcel]

I have a very frustrating Macro issue:

A pair of macros that were created in Excel for PC won't run properly on my Excel for Mac. And, yes, I've "enabled Macros" on my Mac whenever I pull up Excel files that have Macros.

BACKGROUND:
I run a MacPro, 16 gigs RAM, 1TB SSD. I run Parallels for Mac which creates a virtual PC machine on my Mac. This is so that I can run Mac OSX and Microsoft Windows 7 simultaneously. Works beautifully. No problems.

SPECIFIC ISSUE:
When I pull up the Excel file in my Excel for Mac 2011, I am asked to enable macros -- I do so. Then, within the excel file, I have two Macro Buttons that a buddy created for me. Both macro buttons, when clicked on, produce the same "run-time" error code 448: Named argument not found."

I could post the VB code here, if that would help anybody figure out the issue. Just let me know.
Thanks!

RL

 

[mole999]

PC and Mac do have issues, so maybe seeing the code will help to identify what maybe amiss

 

[Rlhoffarthexcel]

Here's the Code, below. The debugger identified the "offending" line of code -- and I've highlighted it for you in red. I look forward to hearing your thoughts.

Richard


Sub AddNewAdvertiser()
'
' Created on 10 July 2009 by Steven Lensing
' Modified on 16 AUG 2015 by Steven Lensing

Dim StartCol As Integer, TempRow As Integer, FinalCol As Integer, FrmlaStart As Integer, AddCustRow As Integer

Call FindStart
StartCol = ActiveCell.Column
Call FindEnd
FinalCol = ActiveCell.Column
Call FindMasterFormulas
FrmlaStart = ActiveCell.Column

Cells(7, StartCol).Select
Call FindBottom
TempRow = ActiveCell.Row

ActiveCell.Offset(-2, 0).Select
Selection.EntireRow.Insert
AddCustRow = ActiveCell.Row

' Cells(TempRow, 3).Select
ActiveCell.FormulaR1C1 = "ADD NAME HERE"

Range(Cells(2, FrmlaStart), Cells(2, FinalCol)).Select
Selection.Copy
Cells(AddCustRow, FrmlaStart).Select
ActiveSheet.Paste
Application.CutCopyMode = False

Cells(TempRow, 3).Select
End Sub
Sub LoudDoorSort()
' Macro created 20 July 2009 by Steven Lensing
Dim StartCol As Integer, TempRow As Integer, FinalCol As Integer


Call ResetMonthlySubtotals

Application.Calculation = xlCalculationManual
' Sheets("LoudDoor").Select
Call FindStart
StartCol = ActiveCell.Column
Call FindRank
RankCol = ActiveCell.Column
Cells(7, StartCol).Select

Call FindBottom
TempRow = ActiveCell.Row
Range(Cells(7, 1), Cells(TempRow - 1, RankCol)).Select
Selection.Sort Key1:=Range("C7"), Order1:=xlAscending, Header:=xlNo
Application.Calculation = xlCalculationAutomatic


Call ResetMonthlySubtotals
Range("A4").Select
End Sub
Sub FindStart()
Rows("1:1").Select
Selection.Find(What:="Advertiser", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
Sub FindEnd()
Rows("1:1").Select
Selection.Find(What:="AnnTotFNL", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
Sub FindRank()
Rows("1:1").Select
Selection.Find(What:="Rank", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
Sub FindMasterFormulas()
Rows("1:1").Select
Selection.Find(What:="FormulaStart", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub

 

[mole999]

i've tried the line in a blank book on PC and its flawless,
can you add option explicit at the top of the sheet macro and see what happens when you debug