Sub FindSearchString()
Dim SrchStr as string: SrchStr = cstr(inputbox("Fyll i söktext"))
Dim SrchSh as worksheet: set SrchSh = thisworkbook.sheets("Klipplista")
Dim SrchRng as range: set SrchRng = SrchSh.Range("A:A")
Dim aCell as Range.
For each aCell in SrchRng
If SrchStr = cstr(aCell) Then
aCell.Offset(0,1) ="x"
End If
Next aCell
End sub
Inte framför datorn så otestad kod. Kan rätta imorgon om det skulle behövas.
Mvh Christian