Help with VBA Autofit Screen View to any screen resolution

[Jalica]

Hi all,

I have some code that allows me to automatically resize an excel spreadsheet to fit on any screen resolution either vertically (by columns) or horizontally (by rows)


Module Code

Sub vbaScreenViewAutofit(varRange)
range(varRange).Select
ActiveWindow.Zoom = True
Cells(1, 1).Select
End Sub

Worksheet Code

Private Sub Worksheet_Activate()
vbaScreenViewAutofit ("A3:AS3")
Range ("A1").Select
End Sub

Is it possible to autofit columns A3:AS3 first then have their column widths locked then autofit rows A6:A46.

The result would be that the spreadsheet would fit onto any computer screen regardless of the screen resolution because it will have been stretched both vertically and horizontally.


I hope this makes sense and hope that someone will be able to help me with this ....