Cancel That. Found Something Easier and have run into another problem. If not all fields are entered in my userform, it doesnt work. Returns empty spaces.

Private Sub SearchFromButton_Click()

Unload Me
Application.ScreenUpdating = False
Sheets("Database").Select

Range("A1").AutoFilter Field:=1, Criteria1:=Me.searchbypurchaseorder.Value
Range("A1").AutoFilter Field:=2, Criteria1:=Me.searchbyarea.Value
Range("A1").AutoFilter Field:=4, Criteria1:=Me.searchbymonth.Value
Range("A1").AutoFilter Field:=7, Criteria1:=Me.searchbyconveyance.Value
Range("A1").AutoFilter Field:=8, Criteria1:=Me.searchbyfrom.Value
Range("A1").AutoFilter Field:=9, Criteria1:=Me.searchbyto.Value
Range("A1").AutoFilter Field:=12, Criteria1:=Me.adnicbutton.Value
Range("A1").AutoFilter Field:=12, Criteria1:=Me.saicobutton.Value

Application.ScreenUpdating = True

End Sub