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