One way to do it is to assign the value to a named range, which will
maintain the value even when other routines have ended (and hence
would not be able to carry the value on to other routines). Add this
line to the code that determines the value:
Names("nrCgoFigs").Value = cgofigs
Other routines can then refer to Names("nrCgoFigs").Value.

Dave O