Variable scope

Hi
I created an array variable at module level and filled the array via a called sub. When the sub is finished and returns to RunMain, the array values are lost and the array shows as out of context. I then created a simple variable aB declared in the same way and that maintains the context and the value. Do arrays not work across subs in the same way?

Please see my code below
Kind regards
Diane


Private CENamesArray As Variant
Private aB As Integer


Sub RunMain()
Application.ScreenUpdating = False

CheckOutError = False
Dim WKbook As Workbook
Dim sfilename As String

'Following calls clearexisting out of date data
Call ClearOHPermData 'This will clear existing current employees data before latest current employees update

sfilename = "w:\brop_oh_perm.xlsx" 'This is the latest OpenHR Current employees for import
Set WKbook = Workbooks.Open(sfilename, ReadOnly:=True) 'open the latest OpenHR Current employees
'MsgBox "active wb is " & ActiveWorkbook.Name
Call FillCurrentEmployeesArray 'import the latest OpenHR current employees into local array
aB = aB + 500
WKbook.Close savechanges:=False 'latest OpenHR current employees
End Sub


Sub FillCurrentEmployeesArray()
'MsgBox "active wb is " & ActiveWorkbook.Name
CENamesArray = Range("b5").CurrentRegion
aB = 100
'MsgBox UBound(CENamesArray, 1) & " " & UBound(CENamesArray, 2) 'this will display count for rows then cols
End Sub

Sub ClearOHPermData()
Dim lBlankRow As Long

lBlankRow = Range("a2").CurrentRegion.Rows.Count
Range("a2", "c" & lBlankRow).ClearContents

End Sub