>with objsheet
> .Range("A1").Select
> .Selection.End(xlToRight).Select
> .Selection.End(xlDown).Select
>endwith
Umm, I haven't used that command, sometimes you have to play with them, unless someone else can chime in with help. It looks like maybe too many Selects, is my first thought...you might try something like
.Selection.End = xlToRight
The Anonymous Bureaucrat,
and frankly, quite content not to be
a member of either major US political party.