Search box floating issue

[lee2121]

I have created a search box which works well but after using the search box the selected text stays on the screen and will even appear on another excel file which is totally unrelated.

This is what stays on the screen

I will add the file to this post if i can so you can look at my code, this is really annoying as the file is so close to working. Any ideas will be very appreciated.

this is my code:

Sub FilterGroup()
'
' FilterGroup Macro
'

'
ActiveSheet.Range("$AZ$22:$AZ$3634").AutoFilter Field:=1, Criteria1:="=true" _
        , Operator:=xlAnd
Range("B20").Select
End Sub
Sub ShowAll()
'
' ShowAll Macro
    ActiveSheet.Range("$AZ$22:$AZ$3634").AutoFilter Field:=1
    ActiveSheet.ComboBox1.Activate
    Range("B20").Select
End Sub

Sub Order()
'
' Order Macro
'

'
    ActiveSheet.Range("$BB$23:$BB$3634").AutoFilter Field:=1, Criteria1:=">0", _
        Operator:=xlAnd
End Sub

 

[lee2121]

Link to file if anyone wished to have a look

http://volmaryltd.co.uk/send to forums.xlsm