is there a better way to do this, like select all the rows in the column and then from there add the items in toArray function or something?

Dim i As Integer
Dim printSheetsCodeNames() As String
Dim wks As Worksheet

Range("B2").Select 'CodeName Column

i = 0
While ActiveCell.Value <> vbNullString
ReDim Preserve printSheetsCodeNames(i)
printSheetsCodeNames(i) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
i = i + 1
Wend

This may be helpful:
Sample Visual Basic macros for working with arrays in Excel