Blank Excel Sheet deletion

[p4uk80 (Praveen)]

Hi,

Can I delete all blank sheets from my excel workbook on some contion.

Lets Say I am having 10 sheets in my workbook and I need to delete all sheets
having blank Cell D22.

Few of the sheets from workbook are having blank cells and I want to delete all those.

Sub TestCellD22()

'Test if the value is cell D22 is blank/empty
If IsEmpty(Range(“D22”).Value) = True Then
MsgBox “Cell D22 is empty”
End If

End Sub

[Tiberiu_Niculescu (Tibi)]

Delete a sheet in excel?

@shrganes, Refer this, Delete Sheet Regards, Dominic

[qwerty456]

Hello, you can use Read Range Activity on each sheet and if the datatable has no rows you can delete it.
For deleting, you can use this code

Delete a sheet in excel?

Just in case anyone else comes upon this question, an easier way to do this is to just use the invoke code activity and use VB.NET to remove it. You’ll need to add the Microsoft.Office.Interop.Excel reference if you don’t already have it. Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim wb As Microsoft.Office.Interop.Excel.Workbook xlApp = New Microsoft.Office.Interop.Excel.Application wb = xlApp.Workbooks.Open(filepath) xlApp.DisplayAlerts = False TryCast(wb.Sheets(sheetname), Mi…

Or send three hotkeys: Alt+h then d finaly ctrl+s.