Zoom on workbook open

Hello

I would like to zoom on a specific sheet (not the other sheets).
I put this code in "This workbook" :

Private Sub Workbook_Open()
    Worksheets("SheetName").Columns("A:L").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
End Sub

This works when the sheet opened when I open the excel file is SheetName but whent an other sheet is opened when I opent my file I have a bug.

So I write this :

Private Sub Workbook_Open()
    Worksheets("SheetName").Activate
Columns("A:L").Select
    ActiveWindow.Zoom = True
    Range("A1").Select
End Sub

It seems to work but I think there is a much better way to do that !
I don't like the "Activate" and the "Select" but don't know how to avoid them.
Could you help me please ?