G Gord Dibben Oct 25, 2010 #2 Sub test() With ActiveCell .Resize(2, 3).Select End With End Sub Gord Dibben MS Excel MVP