编译错误：提供参数时参数不可选

Question

Hi I keep getting a Compile error: Argument not optional in my VBA excel code when I have supplied arguments function used. The Main purpose of the function is to record values from one workbook and save into another as an audit log. However I get the error above and can't find a solution because it looks like I have supplied arguments to every function component that requires it.

Public Sub LogResults ()
  Call RecordAudit(CreateCollection)
End Sub

Public Function CreateCollection() As Collection
       Dim colProspectValues As New Collection
       Dim ManRateCredibility As Double
       ManRateCredibility = 0
       ManRateCredibility = CDbl(1 - worksheets("whorksheetname").Range("A1").Value)

       colProspectValues.Add Worksheets("worksheetname").Range("A2").Value
       colProspectValues.Add Worksheets("worksheetname").Range("A3").Value
       colProspectValues.Add Worksheets("worksheetname").Range("A4").Value
       colProspectValues.Add Worksheets("worksheetname").Range("A5").Value
       colProspectValues.Add Worksheets("worksheetname").Range("A6").Value
       colProspectValues.Add ManRateCredibility 
      
       Set CreateCollection = colProspectValues

End Function

  Public Sub RecordAudit(ByRef aCollection As Collection)
       Dim tempCollection as Collection
       Dim i As Integer
       Dim wbMaster As Workbook
       Dim wbLocal As Workbook
       Dim MasterNextRow As Long
       Dim AuditLogPath As String
       
     Application.ScreenUpdating = False
     Set tempCollection = aCollection
     AuditLogPath = "H:\FolderB\Model\ProspectAudit.xlsx"
     Set wbMaster = Workbooks(AuditLogPath)
     MasterNextRow = wbMaster.Worksheets("AuditLog").Range("B" & wbMaster.Worksheets("AuditLog").Rows.count).End(xlUp).Offset(1).Row

     For i = 1 to tempCollection.count
          wbMaster.Worksheets("AuditLog").Cells(MasterNextRow, i).Value = 
          tempCollection.Item(i)
     Next i

  End Sub

Answer 1

Found out what it was. I had not fully defined the function required when setting the workbook path using Workbooks.Open(AuditLogPath) instead of Workbooks(AuditLogPath)