Sorry guys, one last thing.

If I click the Cancel button, I get the debug box. I've inserted a line of code that fixes this and just closes the box, however, sheet 2 no longer changes name?

This is what I've done:

Private Sub CommandButton1_Click()
    
    Dim ManufacturerNum
    Dim Details As Double
    ManufacturerNum = InputBox("Enter the manufacturer")
    With Sheets("List")
        Sheet2.UsedRange.Clear
        .AutoFilterMode = False
        .Range("A1").AutoFilter field:=1, Criteria1:=ManufacturerNum
        .AutoFilter.Range.Copy Sheet2.Range("A1")
        .AutoFilterMode = False
        If InputRange = False Then Exit Sub
    End With
    Sheet2.Name = ManufacturerNum
    
End Sub
Any ideas?