Sub Test()

Dim x As Integer

x = 8

Range(ActiveCell.Address).Resize(x, 1).Select

End Sub


--
Kaak
------------------------------------------------------------------------
Kaak's Profile: http://www.excelforum.com/member.php...fo&userid=7513
View this thread: http://www.excelforum.com/showthread...hreadid=555928