Hi Mike:

Sub center_it()
Application.Goto reference:=ActiveCell, scroll:=True
With ActiveWindow
i = .VisibleRange.Rows.Count / 2
j = .VisibleRange.Columns.Count / 2
..SmallScroll Up:=i, ToLeft:=j
End With
End Sub

--
Gary''s Student - gsnu200800


"Mike H." wrote:

I search through data and when I find the row I am looking for, I wish to
center the data on the screen. How do I do this?