Deleting sheets

I need some help with a code that checks if there is a sheet name and if there is a sheet of that name then it is deleted.

the sheet name is a number entered through an inputbox and "Average"

Dim w as range
    For Each w In Worksheets
    Worksheets(plantnumber & "Average").Select
    If w.Name = plantnumber & "Cumulative" Then
    w.Select
    Selection.Delete
    End If
    Next