Vorlage versteckt -> Kopie sichtbar, aber wie?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objSh As Worksheet, rng As Range
Dim vntRet As Variant
On Error GoTo ErrExit
If Target.Column = 1 Then
For Each rng In Intersect(Target, Columns(1))
If rng  "" Then
Select Case rng.Row
Case 15 To 39, 46 To 70, 77 To 101, 108 To 132 'hier die Blöcke (Zeilen) angeben!
vntRet = Application.Match(rng.Value, Sheets("Teamübersicht").Range("A20:A" & _
Application.Max(20, Sheets("Teamübersicht").Cells(Rows.Count, 1).End(xlUp).Row)),  _
_
0)
If Not IsNumeric(vntRet) Then
Application.ScreenUpdating = False
Worksheets("Teamübersicht").Unprotect "Test"
Sheets("Teamübersicht").Range("A" & Application.Max(20, Sheets("Teamübersicht").  _
_
Cells(Rows.Count, _
1).End(xlUp).Row + 1)) = rng.Value
Worksheets("Teamübersicht").Protect "Test"
If Not SheetExist(rng.Value) Then
Sheets("Mitarbeiter").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = rng.Value
Me.Activate
End If
End If
Case Else
End Select
End If
Next
End If
ErrExit:
Application.ScreenUpdating = True
Set objSh = Nothing
Set rng = Nothing
End Sub

Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
Dim wks As Worksheet
On Error GoTo ERRORHANDLER
If Wb Is Nothing Then Set Wb = ThisWorkbook
For Each wks In Wb.Worksheets
If wks.Name = sheetName Then SheetExist = True: Exit Function
Next
ERRORHANDLER:
SheetExist = False
End Function