Call advanced filter macro's in one macro

[marcvanderpeet12]

Dear all,
I want to create on macro which runs the folling two macro's:
1. first filter macro:
Sub FILTER_VISIE()
Sheets("Visie uitlijnen").Range("B3:r16").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("B1:R2"), CopyToRange:=Range("C4:R4"), _
Unique:=False
End Sub
2. second filter macro:
Sheets("Strategie cascaderen").Range("B3:r16").AdvancedFilter Action:= _
xlFilterCopy, CriteriaRange:=Range("B1:R2"), CopyToRange:=Range("B4:R4"), _
Unique:=False
I've tried to run both macro's like this:
Sub RUNFILTERMACROs()
Call FILTER_VISIE
Call FILTER_STRATEGIE
End Sub
But this doesn´t work. Anybody suggestions on how I can make this work? I posted a printscreen and the file for some more clarification
Dear regards,
Marc