Ik had het volgende opgenomen via de VBA recorder, uiteraard werkt dit goed behalve als een van de werkbladen niet aanwezig is in het werkboek. wat wel eens het geval is.
Nu dacht ik dit te kunnen ondervangen met :
Maar dat werkt helaas niet, heb ook het volgende nog geprobeerd maar ook dat krijg ik helaas niet werkende
Kan iemand mij in de juiste richting helpen?
Code:
Sub Macro5()
'
' Macro5 Macro
'
'
Sheets(Array("100325, @Holmatro Industrial Eq", _
"100324, @Holmatro Rescue Equipm", "100101, @Intrapost", _
"100151, @Notaris mr J.K.A. Meij", "100236, @Tribion B.V")).Select
Sheets("100324, @Holmatro Rescue Equipm").Activate
Sheets(Array("100325, @Holmatro Industrial Eq", _
"100324, @Holmatro Rescue Equipm", "100101, @Intrapost", _
"100151, @Notaris mr J.K.A. Meij", "100236, @Tribion B.V")).Move
End Sub
Nu dacht ik dit te kunnen ondervangen met :
Objective-C:
On Error Resume Next
Maar dat werkt helaas niet, heb ook het volgende nog geprobeerd maar ook dat krijg ik helaas niet werkende
Code:
Sub test()
' On Error Resume Next
Sheets("100101, @Intrapost").Activate False
Sheets("100236, @Tribion B.V").Activate False
Sheets("100325, @Holmatro Industrial Eq").Activate False
Sheets("100325, @Holmatro Rescue Equipm").Activate False
Sheets("100151, @Notaris mr J.K.A. Meij").Activate False
Selected.Sheets.Move
End Sub
Kan iemand mij in de juiste richting helpen?