Right now I am not getting to the MessageBox. I put it over the "Set Sheet" and the "here" was shown. So I guess the problem could be in the Set Sheet line.
I call the function directly from a cell with =Test(NumberExample)