Problems with creating vba macros - excel

Question

I have a problem when I create macro in one workbook that use another workbook.
This is the code that I am using :
Private Sub CommandButton21_Click()
Set wb1 = Workbooks.Open("
http://europort/it_division/ITAC/Portal/Documentations/Proba 1.xlsx"
)
With wb1
FinalRow = .Worksheets("Sheet1")
.Cells(.Worksheets("Sheet1").Rows.Count, 1)
.End(xlUp).Row
For i = 1 To FinalRow
If TextBox21.Text = .Worksheets("Sheet1").Cells(i, 1).Value Then
MsgBox .Worksheets("Sheet1").Cells(i, 2).Text
Next i
End With
wb1.Close
End Sub
It's working fine but it opens another workbook and only when I click OK button it closes that workbook. I don't want to open this workbook, only to see result and not to see entire excel workbook. How can I do that? Please help.

Answer 1

This should do what you're after, based on your question:
Private Sub CommandButton21_Click()
Application.ScreenUpdating = False
msg = ""
Set wb1 = Workbooks.Open("http://europort/it_division/ITAC/Portal/Documentations/Proba 1.xlsx")
With wb1
FinalRow = .Worksheets("Sheet1").Cells(.Worksheets("Sheet1").Rows.Count, 1).End(xlUp).Row
For i = 1 To FinalRow
If TextBox21.Text = .Worksheets("Sheet1").Cells(i, 1).Value Then
msg = msg & .Worksheets("Sheet1").Cells(i, 2).Text & vbCr
Next i
End With
wb1.Close
Application.ScreenUpdating = True
If msg <> "" Then MsgBox msg
End Sub
The whole thing needs tidying up, you should declare etc. but as it stands now if your code works this should also work.