VBA Zoom to Selection

Big Lar · Dec 3, 2018

Looking for code assistance, please.

How do I select cell A1 & dynamic range for ActiveWindow.Zoom = True
My attempt (in blue) doesn't work.

Code:

iCol = wsSheet1.Cells(1, Columns.Count).End(xlToLeft).Column

[COLOR=#0000ff]wsSheet1.Range(A1, iCol).Select
[/COLOR]
ActiveWindow.Zoom = True

rlv01 · Dec 5, 2018

Might be this

Code:

wsSheet1.Cells(1, iCol).Select

or perhaps this

Code:

wsSheet1.Range("A1").Resize(1, iCol).Select

Big Lar · Dec 5, 2018

Code:
or perhaps this

Code:

wsSheet1.Range("A1").Resize(1, iCol).Select

Thanks, rlv01.
That worked!