Thanks Admin!
The code you made is perfect!
I add new lines in workbook code so that i can use the search engine and add data form in one sheet.
here is the new code:

Code:
Private Sub Workbook_Open()
    Dim x
    
    x = GETSHEETS(Array("view"))
    Worksheets("view").cmbSheetName.List = x
    Worksheets("view").cmbSearchName.List = x
    
    
End Sub
By the way is it possible to add link on the search results so that when i click, i will go to the exact location of the searched data?