Worksheet_Change

[Snowshoeken]

I am trying to use a Worksheet_Change in combo with a Drop Down Box to trigger a Macro with no success. Code as follows:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$100" Then
If Range("RegionResult").Value = "#N/A" Then
Call CommandButton1_Click
Else
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Summary").Select
Range("A3:A54").Select
Selection.AutoFilter Field:=1, Criteria1:=RegionResult
End If
End If
End Sub


Suggestions??

 

[Snowshoeken]

Went the Sort button and hidden colum meathod. Just doesn't look as good and I hate using a work around to solve a problem. Thank you for your help! Cheers!