Использование входного значения для активированного именованного листа

Question

Private Sub cmdAdd_Click() 
Dim iRow As Long 
Dim ws As Worksheet 
Set ws = ActiveSheet 

'find first empty row in sheet 
iRow = .Range("A1").End(xlDown).Row + 1 

Answer 1

Вот что-то, чтобы начать Вас:

Sub SheetPicker() 
    Dim msg As String 
    Dim sh As Worksheet 
    Dim V As Variant 

    msg = vbCrLf 
    For Each sh In Sheets 
     msg = msg & sh.Name & vbCrLf 
    Next sh 
    Do 
     V = Application.InputBox(prompt:="Please pick from:" & msg, Type:=2) 
     If V = False Then 
     Exit Sub 
     End If 
     If Exists(CStr(V)) Then 
     Sheets(V).Select 
     Exit Sub 
     End If 
    Loop 
End Sub 

Function Exists(s As String) As Boolean 
    Dim sh As Worksheet 
    Exists = False 
    For Each sh In Sheets 
     If sh.Name = s Then 
     Exists = True 
     Exit Function 
     End If 
    Next sh 
End Function 

EDIT # 1:

Эта версия позволяет избежать скрытых листов:

Sub SheetPicker() 
    Dim msg As String 
    Dim sh As Worksheet 
    Dim V As Variant 

    msg = vbCrLf 
    For Each sh In Sheets 
     If sh.Visible = xlSheetVisible Then 
     msg = msg & sh.Name & vbCrLf 
     End If 
    Next sh 
    Do 
     V = Application.InputBox(prompt:="Please pick from:" & msg, Type:=2) 
     If V = False Then 
     Exit Sub 
     End If 
     If Exists(CStr(V)) Then 
     Sheets(V).Select 
     Exit Sub 
     End If 
    Loop 
End Sub 

Function Exists(s As String) As Boolean 
    Dim sh As Worksheet 
    Exists = False 
    For Each sh In Sheets 
     If sh.Visible = xlSheetVisible Then 
     If sh.Name = s Then 
      Exists = True 
      Exit Function 
     End If 
     End If 
    Next sh 
End Function