【 シート一覧表示】⇒【選択したシートへ移動】 のマクロ '■モジュール側'シート一覧 Sub SheetView() UserForm2.Show End Sub '■ユーザフォーム側 '初期設定 Private Sub UserForm_Initialize() Dim Sh As Object With ListView1 .View = lvwReport ''表示 …