Zoom Function
 

Hi all,

I would like to use the zoom-function in VB. How can I accomplish this, when
I want to use the zoom function for multiple sheets?

here's an extract of my code. It gives an error, please provide help.

Strg = "'" & filepath & "\[" & Filename & "]" _
& sheetname & "'!" & "r33" & "c8"
Wrb.Sheets("Leraar").Cells(33, 8).Value = ExecuteExcel4Macro(Strg)
Wrb.Sheets("Leraar").Select
ActiveWindow.zoom = Wrb.Sheets("Leraar").Cells(33, 8).Value
Wrb.Sheet2.Select
ActiveWindow.zoom = Wrb.Sheets("Leraar").Cells(33, 8).Value
Wrb.Sheets("Opstarten").Select
ActiveWindow.zoom = Wrb.Sheets("Leraar").Cells(33, 8).Value


thanks in advance

Max