VBA - Set Array Equal to Array

[Dsewardj]

I am trying to determine values in one array and pass them into another array. Below is my code:

'Print selected teams to Metrics-Site worksheet
Dim teamTfArray() As Variant
Dim prntTeamArray() As Variant
Dim x, j, z
j = 0
z = Sheets("Valid Values").Range("cbTeamTotal").Value
ReDim prntTeamArray(1 To z)
teamTfArray() = Sheets("Valid Values").Range("TeamTF").Value
For Each x In teamTfArray()
    If x = "" Then
    Else
    j = 1 + j
    prntTeamArray(j) = teamTfArray(x)
    End If
Next x

What I'm trying to do is find any text value in teamTfArray that doesn't equal "" and pass it into an element in prntTeamArray. It gives me a MisMatch error and I'm not sure why?

 

[Dsewardj]

Well I answered part of my question. I changed my code to this below:

'Print selected teams to Metrics-Site worksheet
Dim teamTfArray() As Variant
Dim prntTeamArray() As Variant
Dim x, j, z
j = 0
z = Sheets("Valid Values").Range("cbTeamTotal").Value
ReDim prntTeamArray(1 To z)
teamTfArray() = Sheets("Valid Values").Range("TeamTF").Value
For Each x In teamTfArray()
    If x = "" Then
    Else
    j = 1 + j
    prntTeamArray(j) = x
    End If
Next x

x is an element in teamTfArray, so there was no need to include it in prntTeamArray(j) = teamTfArray(x).

Now a Subscript Out of Range error is occurring with the prntTeamArray(j) statement. I'm not sure why this is occurring.