ExcelのVBAコードについて教えてください。

VBAコードの一部を指定セル値にする方法を教えてください。
VBAコードの一部
If Target.Address <> "$C$20" Then Exit Sub
If Target.Value <> "" Then
If InStr(1, "一郎,次郎,三郎,四郎,五郎", Target.Value) > 0 Then
On Error Resume Next
Worksheets("受付").Visible = False
Worksheets("管理表").Visible = False
Worksheets("地方照会").Visible = False
Worksheets("札幌道路").Visible = False
があります。
セル20に"一郎,次郎,三郎,四郎,五郎", のどれかの名前が表示されたタイミングで
指定シート
Worksheets("受付").Visible = False
Worksheets("管理表").Visible = False
Worksheets("地方照会").Visible = False
Worksheets("札幌道路").Visible = False　等
が非表示なりようになっております。
If InStr(1, "一郎,次郎,三郎,四郎,五郎", Target.Value) > 0 Then
の各名前の部分"一郎,次郎,三郎,四郎,五郎"を
指定セル値「AX101、AX102、AX103、AX104、AX105、AX106、AX107」の数値に変更する方法を教えてください。
各セルAX101～107には「=TRIM('300'!B15)～=TRIM('300'!B21)」前の式があり
各セルに名前が表示されます。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2023/02/02 15:13

If InStr(1, join(Application.index(range("AX101:AX107").Value,1,0),","), Target.Value) > 0 Then

とか？

この回答へのお礼

回答ありがとうございます。
上手くできました。
色々な悩みが全て解決いたしました。
感謝いたします。

お礼日時：2023/02/02 17:08