Private Sub Workbook_Open()
Sheets("01").Delete
Sheets("02").Copy before:=Sheets("02")
Sheets("02 (2)").Name = "01"
Form1.Show
End Sub
Form1はすぐに表示され(ちらつきのようなもの)、その後-永久
に消えます-このコードをWorkbook_Openイベントの外で実行すると、うまく機能します。
Workbook_Openに戻すと、再びちらつき、消えます。
最初の3行を削除すると(Form1.Showのみを実行)、機能します。
助けてください。