Fejl i Makro

Kære alle

Jeg er igang med en Makro, som skal kigge i en celle og se om celleværdien findes iblandt 3000 andre celler. Jeg har lavet nedenstående makro i Excel 2007, men den driller ganske meget. Den giver en fejl i ActiveSheet.Cells(i, b).Value = "Sand" og fejlen er:
Application-defined or object-defined error.

Er der nogle som kan lure min fejl?

---------------------
Sub navne()
Worksheets("Alle").Select
Range("A1").Select
col = ActiveCell.Column
RowCount = Cells(65536, col).End(xlUp).Row
Dim cellValue As String

For i = 1 To RowCount
cellValue = ActiveCell.Value
    If ThisWorkbook.Tjekdubplet(cellValue) = True Then
        ActiveSheet.Cells(i, b).Value = "Sand"
            Else: ActiveSheet.Cells(i, b).Value = "falsk"
    End If
Next

End Sub

--------------------

Function Tjekdubplet(kontrol As String) As Boolean
Worksheets("Kampagne").Select
Range("D1").Select

col = ActiveCell.Column
RowCount = Cells(65536, col).End(xlUp).Row

For i = 1 To RowCount
    If Cells(i, RowCount).Value = kontrol Then
    Tjekduplet = True
          Else
            Tjekduplet = False
    End If
Next

End Function