try

Code:
--------------------

Sub test()
With Sheets("Sheet1")
.Range(.Range("b1").Value).Select
End With
End Sub
--------------------


--
jindon
------------------------------------------------------------------------
jindon's Profile: http://www.excelforum.com/member.php...o&userid=13135
View this thread: http://www.excelforum.com/showthread...hreadid=387724