Máš na mysli cosi jako nakousl touchwood?
Do Until ActiveCell = Empty
ActiveCell.Offset(0, 1).Activate 'posun o buňku
"...udělej něco..."
Exit Do
Loop
Máš na mysli cosi jako nakousl touchwood?
Do Until ActiveCell = Empty
ActiveCell.Offset(0, 1).Activate 'posun o buňku
"...udělej něco..."
Exit Do
Loop