SOMETHING LIKE :-
'- PSEUDOCODE
X = Application.WorkSheetFunction.Sum(Worksheets("Sheet1").Range("C1:C100")
Y = ' whatever
If X = Y Then
      ' delete the sheet
End If