|
こんばんは。
ThisWorkbookに以下の記述をするとSheet2をアクティブにしたときに1行目のX列以降最終列までの範囲名を”リスト”に出来ます。
==================================================================
Private Sub Workbook_SheetActivate(ByVal シート名 As Object)
If シート名.Name = "Sheet2" Then
Range(Range("x1"), Range("x1").End(xlToRight)).Name = "リスト"
End If
End Sub
==================================================================
では、Sheet1をアクティブにしたときに、Sheet2のリスト範囲を更新するにはどのように記述したらよいのでしょうか?
「シート名.Name = "Sheet2" Then」の部分を「シート名.Name = "Sheet1" Then」にすれば良さそうなのですが、次の行でSheet2の範囲を指定する方法がわかりません。
単純なことなのかも知れませんが調べきれませんでした。よろしくお願いします。
|
|