Calling a Variable from another Module

[Dangerm0use]

Hi, I need a little help if possible
I am trying to retrieve a calculated variable from withinanother module, and use globally until the session of excel is closed.
I need to pass a 1 or 0 back
SubProductLookupBVC(ByVal control As IRibbonControl)
Dim Common AsNew cCommon
Dim InputCellAs Range
Dim Product AscProduct
Dim h As Long,hdrs As Variant
Dim SelRange AsRange
Dim Score AsLong
Dim LastRow AsLong
Dim Answer AsString
Dim MyNote AsString

Do something
Call CheckFlag ‘ This is the module I want the valuecalculated within see below
If Flag = 1 Then
Do something
Else
Do something else
End if

End Sub


Public Function CheckFlag(Flag As Integer) As Variant
Dim Flag As Integer
Dim MyNote As String
Dim Answer As String
Flag = 0

'Place yourtext here
MyNote ="Do you want to include headers?"

'DisplayMessageBox
Answer =MsgBox(MyNote, vbQuestion + vbYesNo, "???")

If Answer =vbNo Then
Flag = 0
Else
Flag = 1
End If
End Function

Thank you

 

[Domenic]

First convert CheckFlag into a sub...

Public Sub CheckFlag(Flag As Integer)
    Dim MyNote As String
    Dim Answer As Long
    
    Flag = 0
    
    'Place your text here
    MyNote = "Do you want to include headers?"
    
    'Display MessageBox
    Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "???")
    
    If Answer = vbNo Then
        Flag = 0
    Else
        Flag = 1
    End If
End Sub

Then in ProductLookupBVC...

    Dim Flag As Integer    

    Call CheckFlag(Flag)

    If Flag = 1 Then
        'Do something
    Else
        'Do something else
    End If

Hope this helps!

P.S. In future, though, please wrap your code within code tags [ CODE] . . . [/CODE]. It makes it easier to read code.

 

[Dangerm0use]

Thank you Domenic

Works a treat, apologies on not wrapping the code with tags

DM

 

[Domenic]

That's great, glad I could help!

Cheers!