VBA code to delete sheet if contains cell with value > X

[MinnState]

Good afternoon,

I've reviewed many threads on how to delete a sheet if it contains a specific condition, but none that quite meets my needs.

I have a workbook with over 900 sheets. I need to run a script that can be run once to delete an entire sheet if cell T7 on that sheet has a value greater than $5,000. I've tried modifying code from other threads but it's clear I am off base.

Thanks for any help you can provide.

-E

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub DelSht()
   Dim Ws As Worksheet
   Application.DisplayAlerts = False
   For Each Ws In Worksheets
   Debug.Print Ws.Name
      If Ws.Range("T7").Value > 5000 Then Ws.Delete
   Next Ws
   Application.DisplayAlerts = True
End Sub

 

[Roderick_E]

Ugh 900 sheets??? ok I won't judge
Anyhow...
On a new sheet maybe called Cleaner add a worksheet button and assign it to this macro:

Sub looper()


         ' Declare Current as a worksheet object variable.
         Dim Current As Worksheet
stimer = timer 'set timer
         ' Loop through all of the worksheets in the active workbook.
Application.StatusBar = "****Please Wait*****  Macro processing"
Application.DisplayAlerts = False
Application.ScreenUpdating = False
         For Each Current In Worksheets
            ' Insert your code here.
     if current.range("T7")>5000 then
current.delete
endif      
         Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.StatusBar = False
msgbox "Completed in " & round(timer-stimer),2) & " seconds."
      End Sub

 

[MinnState]

Thank you both so much. Your solution worked and saved me a lot of frustration.

 

[Fluff]

Glad we could help & thanks for the feedback