Olá galera, to precisando de um help aqui no vba.
O esquema é o seguinte:

Tenho dois combobox encadeados no seguinte código:

Private Sub ComboBox3_change()

Call CarregaSITE(Me.ComboBox3.List(Me.ComboBox3.ListIndex)) ' local do erro

End Sub

Private Sub UserForm_initialize()

Call CarregaOS

End Sub

Private Sub CarregaOS()

Dim linha As Long, coluna As Long
linha = 2
coluna = 1
Me.ComboBox3.Clear
Do While Not IsEmpty(Plan4.Cells(linha, coluna))
Me.ComboBox3.AddItem Plan4.Cells(linha, coluna).Value
linha = linha + 1
Loop
End Sub

Private Sub CarregaSITE(ByVal Os As String)

Dim linha As Long, colunaSITE As Long, colunaOS As Integer
linha = 2
colunaSITE = 6
colunaOS = 1
Me.ComboBox7.Clear
Do While Not IsEmpty(Plan4.Cells(linha, colunaSITE))
If Plan4.Cells(linha, colunaOS).Value = Os Then
Me.ComboBox7.AddItem Plan4.Cells(linha, colunaSITE).Value
End If
linha = linha + 1
Loop
End Sub

o código de inserir na planilha também esta pronto e localizado em um comandbutton

O erro ocorre na linha "Call CarregaSITE(Me.ComboBox3.List(Me.ComboBox3.ListIndex))" dizendo que 'não é possível carregar a propriedade list. Índice de matriz de propriedade inválido'

Alguém poderia me ajudar com essa encrenca ?

Agradeço a todos.