Here is one I use for different checking accounts 1,2,or 3. Right click
sheet tabview codemodify to suit.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

If Target.Address < "$E$4" Then exit sub
On Error Resume Next
mn = Choose([e4], 1, 2, 3)
If mn = 0 Or [e4] = "" Then
Selection.AutoFilter Field:=5
Else
Selection.AutoFilter Field:=5, Criteria1:=mn
End If

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Stefan" wrote in message
...
Hi,

I´m looking to create a macro that will do the following procedu

If column b2:b45 contains the value "Role 1" and "all" show rows
containing
values.

I will use a dropdown list with macros with role 1, role 2...

Regards
Stefan