Excel - Promedio VBA Excel

Buenas tardes, estoy intentando realizar una macro que me saque los promedios pero al ejecutarla me da un error 1004, les comparto para ver si me pueden ayudar

Sub promedio()
Dim nombre As Range
Dim calificacion As Variant
Dim v_a_buscar As String
Dim promedio As Range


Set nombre = Sheets("hoja1").Range("a2:a10")
Set calificacion = Sheets("hoja1").Range("b2:b10")
v_a_buscar = Range("c1")
Set promedio = ActiveWorkbook.Sheets("hoja1").Range("E2")
promedio = Application.WorksheetFunction.AverageIf(nombre, v_a_buscar, calificacion)


End Sub

Debes subir el libro para ver que hace la macro y donde falla.
La macro esta bien, lo que debe estar mal es la hoja.

Saludos.
\\//_

El único posible error que puedes tener es que no estas referenciado correctamente v_a_buscar,

Podrías agregar algo como:


Prueba, y nos platicas como te fue.

Saludos

-Horroroso-

Muchas gracias a todos por responder, la macro "funcionó" quitando la parte de WorksheetFunction el ahora se ejecuta pero no lleva valores, mejor les voy adjuntar el archivo, en estos s momentos no lo hago porque salí de la ciudad y no cargo mi compu.

Chicos
buenos días, tardes o noches, le adjunto la macro la parte a revisar sería el modulo Filtrar
ub reporte()
Dim cont As Long
Dim nomb As Variant
Dim nombre As Variant
Dim grados As Variant
Dim rng As Variant
Dim rango As Range
Dim tem_i As Variant
Dim tem_p As Variant
Dim tem_f As Variant

ultFila = Sheets("Reporte").Range("H" & Rows.Count).End(xlUp).Row
Set rng = Sheets("Reporte").Range("E5:F10000")
Set rango = Sheets("Reporte").Range("E5:E10000")
Set grados = Sheets("Reporte").Range("F5:F10000")
Set temp_p = Sheets("Reporte").Range("J3")

For cont = 3 To ultFila
nomb = Sheets("Reporte").Cells(cont, 8)
tem_p = Application.AverageIf(rango, nomb, grados)


If IsError(temp_p) Then
temp_p = "No está"

End If

Sheets("Reporte").Cells(cont, 10) = temp_p



Next cont

• Macro.zip(71,6 KB)

Chicos muchas gracias ya lo solucioné