Macro to move a cell to centre screen

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Victor Delta - 21 Feb 2007 20:58 GMT

I want to write a simple macro that will make a given cell (defined by the
contents of two other cells - i.e. row number and column number) move to
the centre of the screen (approximately).

Is there a simple way in which I can do this please? I can't find a function
to do it.

Thanks,

V

Reply to this Message

Charles Chickering - 21 Feb 2007 23:47 GMT

Try this:
Sub GotoSpecifiedCell()
'Assumes Range "A1" holds the row number &
'Range "A2" holds the column number
Application.Goto Reference:=Cells(Range("A1").value, Range("A2").value), _
Scroll:=True
With ActiveWindow
.SmallScroll Up:=(.VisibleRange.Rows.Count / 2), _
ToLeft:=(.VisibleRange.Columns.Count / 2)
End With
End Sub

Signature

Charles Chickering

"A good example is twice the value of good advice."

> I want to write a simple macro that will make a given cell (defined by the
> contents of two other cells - i.e. row number and column number) move to
[quoted text clipped - 6 lines]
>
> V

Reply to this Message

Victor Delta - 25 Feb 2007 17:29 GMT

Many thanks,

V

> Try this:
> Sub GotoSpecifiedCell()
[quoted text clipped - 21 lines]
>>
>> V

Reply to this Message