Hi Ross,
Something like this then...
Sub DeleteEmptyWorkSheets()
Dim ws As Worksheet
Dim deletedsheetcount As Long
Dim strMessage As String
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If Application.CountA(ws.Cells) = 0 Then
ws.Delete
deletedsheetcount = deletedsheetcount + 1
Else
strMessage = strMessage & ws.Name & vbLf
End If
Next
Application.DisplayAlerts = True
MsgBox deletedsheetcount & " empty sheets deleted" & vbLf & _
"Remaining sheets: " & vbLf & strMessage
End Sub