Object variable not set

I believe what Shg is suggesting is:

If Not rgCell Is Nothing then
    If Cells(Val(rgCell.Row + 1), rgCell.Column) = year2 Then
...
    End if
End if

Actually this did the trick! Works perfectly now ...

Thanks guys for the repeated help over multiple threads .. I think its great that there are people willing to go out of their way to help beginners like me

Cheers and have a great day

Originally Posted by shg

You can't combine those tests in a single statement -- if the range is Nothing, testing the row gives a runtime errror.

Originally Posted by JosephP

per shg's comment you need two tests

If Not rgCell Is Nothing Then
   if Cells(rgCell.Row + 1, rgCell.Column) = year2 Then

Originally Posted by StevenM

I believe what Shg is suggesting is:

If Not rgCell Is Nothing then
    If Cells(Val(rgCell.Row + 1), rgCell.Column) = year2 Then
...
    End if
End if