Jestli dobře chápu popis problému tak:Sub bunka()
Dim radek As Long, sloupec As Long
radek = ActiveCell.Row
sloupec = ActiveCell.Column
Worksheets("List3").Select
Worksheets("List3").Cells(radek, sloupec).Select
End Sub
citovat
Dim radek As Long, sloupec As Long
radek = ActiveCell.Row
sloupec = ActiveCell.Column
Worksheets("List3").Select
Worksheets("List3").Cells(radek, sloupec).Select
End Sub
citovat