Læg 1 til celle

Eksempel:
Sub test()
Rem Hvis X og Y er udtryk for kolonne / række
    With ActiveCell
        If .Column = .Row Then
            ActiveCell.Offset(0, 4).Activate
            ActiveCell = ActiveCell + 1
        End If
    End With
End Sub

Ja det var også det jeg skulle bruge,
tak for hjælpen supertekst

UPS det virker ikke for mig, jeg bruger

For Each x In Selection
        For Each y In CompareRange
            If x = y Then ActiveCell.Offset(0, 4).Activate
            x.Offset(0, 4) = ActiveCell + 1

Activate cell er stadigt den celle jeg kikker i, så den kan ikke lægge en til ?

x.Offset(0, 4) = x.Offset(0, 4) + 1

For Each x In Selection
        For Each y In CompareRange
            If x = y Then
        x.Offset(0, 4) = x.Offset(0, 4) + 1

Hej
Kabbak, det var lige det der skulle til, mange tak for det.

et svar ;-))