ドロップダウンリストでワークシートの名前を変更

Question

私は以下のコードを使用してワークシートの名前を変更しています。

Option Explicit 

Sub RenWSs() 

    Dim ws As Worksheet 
    Dim shtName 
    Dim newName As String 
    Dim i As Integer 
    Dim RngStr As String 

    RngStr = Application.InputBox(prompt:="Select the Range for the new Sheet's name", Type:=2) 
    For Each ws In Worksheets 
     With ws 
      If Trim(.Range(RngStr)) <> "" Then 
       shtName = Split(Trim(.Range(RngStr)), " ") 
       newName = shtName(0) 
       On Error GoTo ws_name_error 
       .Name = .Range(RngStr) 
       GoTo done 
repeat: 
       .Name = newName & i 
       GoTo done 
ws_name_error: 
       i = i + 1 
       Resume repeat 
      End If 
     End With 
     On Error GoTo 0 
done: 
    Next 

End Sub 

これは、入力ボックスとその有効な罰金によって新しい名前を選択しています。今私が望むのは、入力ボックスを呼び出す前に、以下のプロセスを実行する必要があるということです。

ドロップダウンリストに名前があり、J16のようなすべてのワークシートで1つずつ更新されるようにドロップダウンリストに名前が付けられています。

くれ

Answer 1

を助けてください以下のコードは、すべてのwsシートを通じてlopp、および（単にテスト目的のために）「テスト1」に「J16」のセルの値を変更します。

Option Explicit 


Sub ModifyDropDownValue() 

Dim ws As Worksheet 

For Each ws In Worksheets 
    With ws 
     ' modify the value in cell J16 
     .Range("J16").Value = "Test 1" 
    End With 
Next ws 

End Sub