Option Explicit

Public list

Sub asdf()
'какой-то код
With ActiveWorkbook
  On Error Resume Next 'и тут мы решили попроверять ошибки
  Call List_copy
  .Sheets(list).Copy before:=.Sheets(1) 'вот здесь предполагается ошибка
  If Err Then 'если err<>0, значит ошибка есть
    Stop 'вот здесь Вы можете выделив "err", нажать прав. кн. мышки и в контекстном меню "Add Watch"
    MsgBox Err.Description & vbCrLf _
      & "Ошибка N " & Err.Number 'внизу в табл. "Watches" увидите err и его структуру
    list = InputBox("Данный лист не найден, введите название листа вручную", "IO", "")
    Err = 0 'сбрасываем ошибку, чтоб узнать появится ли она снова
    .Sheets(list).Copy before:=.Sheets(1) 'вот здесь опять предполагается ошибка
    If Err Then 'если err<>0, значит опять ошибка есть
      MsgBox ("Дынный лист не найден, проверьте правильность написания и повторите процедуру")
      Exit Sub
    End If
  End If
  On Error GoTo 0 'прекращаем обработку ошибок
  'дальнейший правильный код не предполагающий ошибок
End With
End Sub

Function ShEx(shNm) As Boolean
On Error Resume Next
ShEx = Not Sheets(shNm) Is Nothing
End Function

Sub Test
If ShEx("Не знаю какое имя листа") Then
  msgbox "Надо же, такой лист есть!"
Else
  msgbox "Листа с таким именем не существует..."
End Sub

Sub asdf()
'какой-то код
With ActiveWorkbook
  If ShEx(list) Then
    .Sheets(list).Copy before:=.Sheets(1)
  Else
    list = InputBox("Данный лист не найден, введите название листа вручную", "IO", "")
    If ShEx(list) Then
      .Sheets(list).Copy before:=.Sheets(1)
    Else
      MsgBox ("Дынный лист не найден, проверьте правильность написания и повторите процедуру"): Exit Sub
    End If
  End If
  'дальнейший код
End With
End Sub

Private Sub UserForm1_Initialize()
With ListBox1
.ListBox1.Clear
For Each sh In ActiveWorkbook.Worksheets
.ListBox1.AddItem (sh.Name)
Next sh
End Sub