trouble with variable sheet name

Runs w/o error:

Option Explicit

Sub GetData()
    Dim strFin(1 To 3) As String
        strFin(1) = "basicmaterials"
        strFin(2) = "consumergoods"
        strFin(3) = "financial"
    Dim RowCt As Integer, Z
    Dim RowTot As Variant
    
    With Sheets("Raw")
        RowTot = .UsedRange.Rows.Count
        For Z = 1 To 3
        
            For RowCt = 2 To RowTot
                If (.Cells(RowCt, 7).Value < 0 And .Cells(RowCt, 5).Value > 0 And .Cells(RowCt, 4).Value > 0) Then
                    .Range("A" & RowCt & ":" & "K" & RowCt).Copy _
                        Destination:=Sheets(strFin(Z)).Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
                End If
            Next RowCt
        
        Next Z
    End With 'raw

End Sub