Macro para eliminar hojas con mismo nombre

Prueba este código cambiando Hoja por nombre de tus Hojas
Sub subElim()
    Application.DisplayAlerts = False
    elim = 1
    For i = 1 To Sheets.Count
        If Left(Sheets(elim).Name, 4) = "Hoja" Then
            Sheets(elim).Delete
        Else
            elim = elim + 1
        End If
    Next
    Application.DisplayAlerts = True
End Sub
Ya me cuentas si te vale o necesitas algo más