Type Mismatch Error?

I'm getting the error Type Mismatch on the following line:

If .Offset(y, 0) = Sheets("Averages").Range("B2") Then

Any clue what I'm doing wrong?


Thanks!

Sub Calendar_Calc_Avgs()

Dim y As Long
Dim avg As Long

y = 0
avg = 0

With Sheets("Calendar").Range("G4")

Do

If .Offset(y, 0) = Sheets("Averages").Range("B2") Then
    avg = avg + .Offset(y, -2)
End If

y = y + 1

Loop Until .Offset(y, -3) = ""

End With

Sheets("Averages").Range("B3").Value = avg

End Sub