Funzione personalizzata che non funziona

Public Function Calcoloprezzocopia(Quantitacopie As Variant, Note As Variant, Pagine As Variant, _
Tabella_sino As Range, TABtariffeFF As Range, TABtariffeFV As Range, _
Tipoconfez As Variant, Formatolibro As Variant, _
Grammaturacarta As Variant) As Variant
'


'Application Volatile
'
Dim Calcoloprezzocopia As Variant
Dim Quantitacopie As Variant
Dim Note As Variant
Dim Pagine As Variant
Dim Tabella_sino As Range
Dim TABtariffeFF As Range
Dim TABtariffeFV As Range
Dim Tipoconfez As Variant
Dim Formatolibro As Variant
Dim Grammaturacarta As Variant
Dim Codicericerca As Variant
Dim VAR1 As Variant
Dim VAR2 As Variant
Dim VAR3 As Variant
Dim VAR4 As Variant
Dim VAR5 As Variant

Codicericerca = Tipoconfez & Formatolibro & Grammaturacarta

VAR1 = WorksheetFunction.VLookup(Codicericerca, Tabella_sino, 2)

If VAR1 = "NO" Then
    Calcoloprezzocopia = "NO PRICES LIST"

Else
    If Note <> "" Then
        Calcoloprezzocopia = "EXTRACOSTS"
    Else
        If Pagine > 64 Then
            Calcoloprezzocopia = "ATTN high number of pages"
        Else:
            VAR2 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFF, 2)
            VAR3 = WorksheetFunction.HLookup(Pagine, TABtariffeFF, 2)
            VAR4 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFV, 2)
            VAR5 = WorksheetFunction.HLookup(Pagine, TABtariffeFV, 2)
              
            Calcoloprezzocopia = WorksheetFunction.Index(TABtariffeFF, VAR2, VAR3) _
        / Quantitacopie + Index(TABtariffeFV, VAR4, VAR5)
        
        End If
    End If
End If

End Function

Public Function Calcoloprezzocopia(Quantitacopie As Variant, Note As Variant, Pagine As Variant, _
 Tabella_sino As Range, TABtariffeFF As Range, TABtariffeFV As Range, _
 Tipoconfez As Variant, Formatolibro As Variant, _
 Grammaturacarta As Variant, Forzat As Variant) As Variant
 '

 Dim Codicericerca As Variant
 Dim VAR1 As Variant
 Dim VAR2 As Variant
 Dim VAR3 As Variant
 Dim VAR4 As Variant
 Dim VAR5 As Variant
 Dim VAR6 As Variant
 Dim VAR7 As Variant
 
Codicericerca = Tipoconfez & Formatolibro & Grammaturacarta
 
VAR1 = WorksheetFunction.VLookup(Codicericerca, Tabella_sino, 2)
 
If WorksheetFunction.VLookup(Codicericerca, Tabella_sino, 2) = "NO" Then
 Calcoloprezzocopia = "NO TARIF"
 
Else
 If Note <> "" Then
 Calcoloprezzocopia = "EXTRACOSTS"
 Else
 If Pagine > 104 Then
 Calcoloprezzocopia = "*** PAGES  ***"
 Else:
 VAR2 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFF, 2)
 VAR3 = WorksheetFunction.HLookup(Pagine, TABtariffeFF, 2)
 VAR4 = WorksheetFunction.VLookup(Codicericerca, TABtariffeFV, 2)
 VAR5 = WorksheetFunction.HLookup(Pagine, TABtariffeFV, 2)

       If Forzat = "4+0" Then
            VAR6 = 60
            VAR7 = 0.003
            Else
            VAR6 = 0
            VAR7 = 0
       End If
Calcoloprezzocopia = (WorksheetFunction.Index(TABtariffeFF, VAR2, VAR3) + VAR6) _
 / Quantitacopie + (WorksheetFunction.Index(TABtariffeFV, VAR4, VAR5) + VAR7)
 
End If
 End If
 End If
 
End Function