title: How to delete a blank sheet in a workbook using VBA?
body: <pre><code>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
  </code></pre>
  
  <p>I am unable to delete the empty sheets using above code.</p>