Sub Pan()
Dim this As Range
Set this = ActiveCell
Application.InputBox "Select cell to pan to", Type:=8
Application.Wait Now + TimeSerial(0, 0, 3)
this.Activate
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Bryan" wrote in message
...
I work with very wide spreadsheets and I often need to pan left to look up
a
value in a column and then back to the original cell. This is tedious and
sometimes I cannot find my original position when going back to my
original
cell position.

How can I do this so that I can input the column and cell that I need to
pan
left to, delay it for say, 3 secs, and then pan RIGHT back to my original
cell?

I'm a newbie, so any help is appreciated.

Thanks