VBA – makro funguje jen po proklepnutí vzorce

Dobrý den prosím o pomoc s Makrem,

Vytvořil jsem Makro viz níže

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B4").Sort Key1:=Range("B5"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If

End Sub

Makro je použité na automatické řazení dat ve sloupci B:B v listu 1. Ve sloupci B- jsou vzorce které odkazují na buňky v druhých listech, pokud v druhých listech změním data, tak automatické řazení v listu 1 neproběhne. Proběhne až prokliknu vzorec v ketrékoliv buňce. Makro nereaguje na změny v ostatních listech.

Dokázal by někdo pomoci?