Hi,
In sheet "Div" range R6:R36 I have a chain of numbers ( 11123333334455566
etc) , each timea number in the chain change there is a text in the cell on
the right side. In a For.. Next loop I want to pick upp this textstrings (and
use it in Mysheet) but the sub just want find the first one (1).
In the For..Next loop nLag willbe changed from 1 o 6

Sub HamtaKlubb()
klassCol = 17
nLag = 2
Sheets("Div").Activate
ActiveSheet.Range(Cells(6, klassCol), Cells(36,
klassCol)).Find(nLag).Offset(0, 1).Select
MyLag = Selection.Value
Sheets(MySheet).Activate

End Sub
Thanks in advance for your help! /KentAE
--
If you are old enough, you have your future behind you.