Type Mismatch Error?

[PunPryde]

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

[watersev]

it would be helpful to see workbook with data that causes error

[PunPryde]

fixed with "On Error Resume Next"

[Colin Legg]

Hi,

fixed with "On Error Resume Next"

That's not a fix: that means that you are ignoring the error.

The cause of the error is most likely that there is an error value (eg. #DIV/0!) in one of the cells. If that's not what you would expect then you're welcome to attach an example for us to look at.