[Ask]Code VBA filter range from Formula of cell

[hochoaivandot]

Formula of cell A1: "= Sheet1!A2+Sheet3!A3"
Formula of cell B1: "= Sum(Sheet1!A5:A10)+Sheet2!$C$7"
I want a function named FilterRange (arg) with arg is argument address of cell (such as A1, B1).
Function return array containing ranges that cell has reference to.
Detail:
FilterRange(A1) --->array("Sheet1!A2", "Sheet3!A3")
FilterRange(B1) --->array("Sheet1!A5:A10", "Sheet2!C7")
Thanks!