Pontosítok az előzőhöz, az egész cucc ciklusban fut:

 

For each mysheet in Workseets()

  utasitas1

  utasitas2

  UserForm1.show

  utasitas3

  utasitas4

next mysheet