Try the following:Sub Test()'Range("A1:C5").SelectRange("B2").ActivateEnd SubDon't know why you would like to do something like this, however itgave me a better understanding of the difference between Select andActivate.