Insert Desired count of new worksheets

Sub CreateSheets()
Dim Count

    On Error Resume Next

        Application.DisplayAlerts = False

        

            Count = Application.InputBox _
             (Prompt:="How many sheets do you want to insert?", _
             Title:="HOW MANY?", Type:=1 + 8)

             

    On Error GoTo 0

        Application.DisplayAlerts = True



    If IsNumeric(Count) And Count <> 0 Then

        Worksheets.Add Count:=Count, After:=Worksheets(Worksheets.Count)

    Else

       Exit Sub

    End If
End Sub