Fehlermeldung

Private Sub Workbook_Open()
Dim Wsh As Worksheet
For Each Wsh In ThisWorkbook.Worksheets
Wsh.Tab.Color = IIf(WorksheetFunction.CountBlank(Wsh.Range("A4:A28")) = 0, vbRed, vbGreen)
Next
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A4:A28")) Is Nothing Then
Sh.Tab.Color = IIf(WorksheetFunction.CountBlank(Sh.Range("A4:A28")) = 0, vbRed, vbGreen)
End If
End Sub

Private Sub Tabelle_Kopieren()
Application.CutCopyMode = True
ActiveSheet.Select
Range("A1:F1").Copy
Sheets("Tabelle2").Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End Sub