Set cell = Cells.Find begrænses til kolonne A

Eksempel:
Dim id As Integer
Dim række As Integer
Sub udførSøgOgErstat()
    id = 4711
   
    række = findRække(ActiveWorkbook.Sheets("Test"), "A1:A65000", id)
    If række > 0 Then
        '..
    End If
End Sub
Private Function findRække(ark, område, id)
    With ark.Range(område)
        Set c = .Find(id, LookIn:=xlValues, LookAt:=xlWhole)
        If Not c Is Nothing Then
            findRække = c.Row
        Else
            findRække = 0
        End If
    End With
End Function

Super

Men jeg ville gerne have at den rykkede frem til den første linje hvor posten optræder i kolonne A.

offset.activate ?

Aktiver kolonne A i den fundne række