excel - VBAを使用してワークブックの空白のシートを削除する方法は?

Question

Sub delete()
    Dim sh As Worksheet, wb As String, c As Range
    wb = InputBox("work book name")
    Set sh = Workbooks(wb).Sheets
        For Each Sheet In sh
            If IsEmpty(sh.UsedRange) Then
            sh.delete
            End If
        Next
End Sub

上記のコードを使用して空のシートを削除できません。