Search sheet and display results

Hi all, hope everyone's well.

I've got a worksheet I need help with. Its a list of companies in column A, and their address etc in column B.

I have added a search button and inputbox by "borrowing" it from another sheet I found, but I cant get it to work properly. I'm not very good with VBA to be honest, I only know some basic things.

I've attached the sheet so hopefully someone will have some ideas! I want to input the name of a company, then bring up the details for all the matching companies. I'm not 100% sure what I want it to look like etc, as long as it does the job that's fine.

Thanks a lot,

Tony

Here's one approach, which puts the results on sheet2.

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
    End With
    
End Sub

Guys your all legend! Worked a treat

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?

Do you mean you want sheet2 to revert to "Sheet2"? If so, try this:

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