Move Cell to Top/Left

[Phil Hageman]

I am using variations (different chart names) of the
following code to size and position a series of imbedded
charts (in one worksheet) on screen such that they display
exactly on top of each other. This code is attached to a
forms command button in another worksheet to execute the
code. Works great. Now I need to do a similar thing
within a different worksheet, but instead of a chart, I
want to use three merged cell ranges: B1:BA1, B33:BA33,
and B65:BA65 as the point to be located at, say, Top = 10,
Left = 150. I do not want to resize, just have the cell
go to 10/150. How this should work: user clicks the
button and cell range B33 moves to 10/150, for example.
In this B33 example, I would call the macro DisplayB33.

Seems the code should be simple and straightforward, but I
can't figure out how to do it. Tried the macro generator
to no avail. Can someone help with the code?

Sub GoToMetric6()
Application.ScreenUpdating = False
Sheets("Metrics").Select
ActiveWindow.Zoom = 57
Range("A1").Select
With ActiveSheet.ChartObjects("Chart 56")
.Height = 660
.Width = 780
.Top = 10
.Left = 150
.BringToFront
End With
Application.ScreenUpdating = True
End Sub

 

[J.E. McGimpsey]

Not sure exactly what you're trying to do - to a large extent, the
top-left corner of a cell is dependent on the row height of the row
above and the column widths of the preceding columns (this is
different from charts which "float" on top of the cell grid).

You may find what you're looking for if you look at Application.Goto
in VBA Help (in particular, setting the Scroll parameter to True).