Passing variable value from Private Sub to Module

I am trying to pass a variable called "Filter" from a Private Sub to a Module but keeping coming up with a zero value in the Module. I tried to make the variable Global but that didn't seem to work. Any suggestions for a solution is appreciated. Thanks.

Private Sub Code as follows:

Please Login or Register  to view this content.

Global Variables as follows:

Please Login or Register  to view this content.

Module Code as follows:

Please Login or Register  to view this content.

Hi,

You are defining Filter in

Please Login or Register  to view this content.

So when you say

Please Login or Register  to view this content.

the value is assigned to the local variable and not the global one, and you will not get it in the module.

Just remove

Please Login or Register  to view this content.

from

Please Login or Register  to view this content.

and hopefully that will resolve the problem.

Regards.

Personally I'd get rid of the Global variables unless you really need them (ie. can justify a reason for having them other than needing the values in more that one function), and just pass them from one function to the next when you need to.

Please Login or Register  to view this content.

Please Login or Register  to view this content.