run time error 13, type mismatch

Hi,

I have just joined. I am getting a message when I am running a macro - run time error '13', type mismatch. when I am debuggung it it opens up my VBA code and shows this:

Sub Updategraph()
'
'
' Macro recorded 10/01/2006 by Ajay Dahiya
'

Dim i As Integer
Dim j As Integer

j = 0

Sheets(" Data").Select
Range("G5").Activate

For i = 0 To 31

If ActiveCell.Value <> "" Then - this line is highlighted in yellow colour

j = j + 1

ActiveCell.Offset(1, 0).Activate

re: run time error 13, type mismatch

might check for null

If not isnull(ActiveCell.Value) or ActiveCell.Value <> ""

re: run time error 13, type mismatch

Technical questions should not be posted in the Introductions forum. I am moving this to the Access forum.

ADMIN