You can use the Goto method of the Apllication object with Scroll parameter
set to True:
Application.Goto Destination, Scroll
Eg:
'---------------------------------------------
Sub test()
DisplayRange Range("A500")
End Sub

Sub DisplayRange(Rg As Range)
On Error Resume Next
'activate book
Rg.Parent.Parent.Activate
If Err < 0 Then 'could be hidden book
MsgBox "Cannot activate the parent book."
Exit Sub
End If
'activate sheet
Rg.Parent.Activate
If Err < 0 Then 'could be hidden sheet
MsgBox "Cannot activate the parent Sheet."
Exit Sub
End If
'Select and go to Rg
Application.Goto Rg, True
End Sub
'------------------------------------------------------
--
Regards,
Sébastien
<http://www.ondemandanalysis.com


"Souris" wrote:

I would like to have my spreadsheet select a like like "AA12" and move this
cell to left upper of the screen.

I use sheets("sheets").Range("AA12").select

Ther cell wa selected, but it is located on any where on the screen.

I want to show user the data base on cell "AA12".

Is it posible to have my spreadsheet celll on the left upper of the screen?

Any infromation is great appreciated,