Hi,
I want to know are there anyway I can passing variable or string from one sub to another sub or include them.

from example, 
'this is a configuration sub 

Sub getConfig()
dim OriginalRole As String
dim ProgressStatus As String

Sheets("Configuration").Select


Cells.Find(What:="Original Role:", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
OriginalRolecol = ActiveCell.Column + 1
OriginalRoleRow = ActiveCell.Row
OriginalRoleLetter = Left(ActiveCell.Address, 2)

Cells.Find(What:="Show Internet Explorer Progress:", After:=ActiveCell, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Select
ShowProgresscol = ActiveCell.Column + 1
ShowProgressRow = ActiveCell.Row
ShowProgressLetter = Left(ActiveCell.Address, 2)

OriginalRole = Cells(OriginalRoleRow, OriginalRolecol).Value
ProgressStatus = Cells(ShowProgressRow, ShowProgresscol).Value

..
...


End Sub
I want the string to pass to the main()

sub main()
call getConfig

OriginalRole < -  so I can use the string here?

ProgressStatus < -  so I can use the string here?

end sub
are there include(getConfig) ???? something like that?