ActiveCell.Offset(1, 0).Range("A1").Select 'Moves the cursor down towhat is funtion Range("A1") ? i try without Range("A1") its run ok.