Как закрыть функцию рабочего листа в vba?

Question

Как закрыть листы, если они не совпадают, или если я нажму кнопку «Отменить». Если я нажму «Отменить», он продолжит возвращать меня, чтобы войти в рабочие листы. Вот мой код.

Function WorksheetExists(WSName As String) As Boolean 
    On Error Resume Next 
    WorksheetExists = Worksheets(WSName).Name = WSName 


    On Error GoTo 0 
    End Function 

    Do Until WorksheetExists(shname) 
    shname = InputBox("Enter sheet name") 
     If Not WorksheetExists(shname) Then 
     MsgBox shname & " doesn't exist!", vbExclamation 

     Else 
     WSName = shname 

     Sheets(shname).Select 
     End If 
     Loop 

Answer 1

Вы должны проверить пустой ответ. Он продолжает цикл, поскольку у вас нет пустой строки в качестве имени листа.

Do Until WorksheetExists(shname) 
     shname = InputBox("Enter sheet name") 
     If shname = "" Then 
      Exit Do 
     ElseIf Not WorksheetExists(shname) Then 
      MsgBox shname & " doesn't exist!", vbExclamation 
     Else 
      WSName = shname 
      Sheets(shname).Select 
     End If 
    Loop 

или

Do Until WorksheetExists(shname) Or shname = "" 
    shname = InputBox("Enter sheet name") 
    If Not WorksheetExists(shname) Then 
     MsgBox shname & " doesn't exist!", vbExclamation 
    Else 
     WSName = shname 
     Sheets(shname).Select 
    End If 
Loop