Вызов пользовательской функции

Function Acc_ounts(ByVal DPTM As String, ByVal Acc_GAAP As String) As String
'Application.Volatile
 
Dim lngCurrDateRow As Long
Dim rngDates As Range
'Dim DPTM_type As String
ReDim Acc_local(1 To 5) As String     'Acc_GAAP(1 To 5),
 
Worksheets("Expense Report Form").Activate
Location = Sheets("Expense Report Form").Range("D7").Value
DPTM = Sheets("Expense Report Form").Range("D8").Value
PLace = IIf(Len(Trim(Range("D11").Value)) = 0, 1, 0)  
'**** Production-Admin-Sales determination
Select Case Location
    Case "Kiev GO"
      Set rngDates = Range("R2").CurrentRegion
      Column_type = 19
    Case "Borispol"
      Set rngDates = Range("U2").CurrentRegion
      Column_type = 22
    Case "Ordjo"
      Set rngDates = Range("X2").CurrentRegion
      Column_type = 25
    Case Else
    
End Select
 
Set rngDates = rngDates.Resize(rngDates.Rows.Count, 1)
lngCurrDateRow = Application.WorksheetFunction.Match(Worksheets("Expense Report Form").Range("D8"), rngDates, 0)      
DPTM_type = Cells(lngCurrDateRow, 19).Value
 
Select Case DPTM_type
    Case "Admin"
       start_row = 14
    Case "Selling"
       start_row = 25
    Case "Production"
       start_row = 3
End Select
 
Acc_GAAP = Worksheets("Accounts").Cells(start_row + 5 * PLace, 6).Value
 
Acc_ounts = Acc_GAAP
End Function

With Worksheets("Expense Report Form")
    Location = .Range("D7").Value
    DPTM = .Range("D8").Value
    PLace = IIf(Len(Trim(.Range("D11").Value)) = 0, 1, 0)
    ' и т.д.
End With