Center result on screen

  • Thread starter Thread starter Mike H.
  • Start date Start date
M

Mike H.

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?
 
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
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Happy Birthday Taffycat! 8
Tax Form with Merge and Center 7
Center displayed columns in middle of window 3
Justify paragraph but center last line 2
Center spreadsheet in middle of window 1
SQL data from VBA - Sort into groups via heading. 7
Dell Optiplex graphics driver failure 2
Windows 10 How to remove Action Center following anniversary update 6

Back
Top