RE: MAKRO do excelu

Tuto je trochu zbastlena verzia, ale nejako mi to nefunguje,nic to neurobi.
Co mam zle?
Da sa namiesto listu-harku uviest aj zosit? Ako pri nom potom uvediem
adresarovu cestu? A samozrejme list-harok v ramci toho zositu?
Dik za pomoc zatial...

------------------------------------------------------
Sub hledej_smudlo()
'rob dovdety kym nebude vedla teba nalavo prazdna bunka
Do Until ActiveCell.Offset(0, -1) = ""
' co ideme hladat ....
B4 = ActiveCell.Offset(0, -1)
'vyhladaj v harku "X" (dopln meno harku) hodnotu myKey
Set foundcell = Worksheets("test").Cells.Find(B4)
If foundcell Is Nothing Then
' nic sme nenasli :-(
 ActiveCell = "not found"
Else
pocet_riadkov_posunu = 2 ' tu zadas o kolko riadkov sa ma posunut
ActiveCell = foundcell.Offset(0, pocet_riadkov_posunu)
End If
'posun sa riadok nizsie a hladaj odznova
ActiveCell.Offset(1, 0).Select
Loop
End Sub
------------------------------------------------------