Browse file to add into listbox

[ccs1981]

good days.
there is a bug when i click cancel to open the file if i click the button browse to browse any excel files . any1 has any idea?
below is my code:

Private Sub btn_browse2_Click()
Dim FileSelected2 As Variant
Dim filename2

FileSelected2 = Application.GetOpenFilename(FileFilter:=("Excel Files,*.xls"), MultiSelect:=True)

 For Each filename2 In FileSelected2

 ListBox2.AddItem filename2
 Next
End Sub

thanks..