Type mismatch hjæælp

Hej Eksperter,

Jeg har fundet et spørgsmål herinde: http://www.eksperten.dk/spm/850831

Hvor der bliver foreslået en vb kode der ser således ud:
Public Sub Slet()

    Dim RW As Long, I As Long
    RW = Range("A65536").End(xlUp).Row
    For I = RW To 1 Step -1

        If Cells(I, 1).Value = "Side" Then
            Cells(I, 1).EntireRow.Delete
        End If

        If Cells(I, 1).Value = "34BC" Then
            Cells(I, 1).EntireRow.Delete
        End If

        If Cells(I, 1).Value = "Valuta" Then
            Cells(I, 1).EntireRow.Delete
        End If

        If Cells(I, 1).Value = "Konto" Then
            Cells(I, 1).EntireRow.Delete
        End If

        If Left(Cells(I, 1).Value, 7) = "-------" Then
            Cells(I, 1).EntireRow.Delete
        End If

        If Len(Cells(I, 1).Value) = 5 Then
            Cells(I, 1).Offset(1).EntireRow.Insert
        End If

    Next
End Sub

Det er præcis sådan en jeg skal bruge. Jeg har forsøgt at indsætte den og indsætte adskillige andre koder der har samme formål men hver gang jeg forsøger at køre makroen kommer den op med en "type mismatch" fejl og markere flg. linje:       
If Cells(I, 1).Value = "Side" Then
med gul. Og det gør det ved samtlige andre kodetype der har samme formål

Hvad hulen gør jeg forkert her??

pft.