質問: Worksheets("Sheet1").Range("A65536").End(xlUp) UserForm1.Show End Sub ``` ワークシート、UserForm、エラーコードを画像で貼り付けます。 ![イメージ説明](https://teratail.storage.googleapis.com/uploads/contributed_images/e4ba718f4aa05cf63f96d56516f5531a.jpeg)
回答: 初期化プロシージャーに施した > > ◆試したことは以下のコード(何れもエラー) > > ⓵Worksheets("Sheet1").Range("A1").Value = 1 をフォーム開くコードに追加 > > > を、下記のように変えてみたらどうでしょう。 ``` If Worksheets("Sheet1").Range("A2").Value = "" then Worksheets("Sheet1").Range("A2").Value = 1 End If ```