Olá pessoal, preciso novamente da ajuda de vocês, no projeto que estou fazendo criei dois comboboxes cadeados, onde um depende do outro, mas esta aparecendo mensagem de erro.

Utilizei este código:

Private Sub ComboBox7_Change()
    ComboBox7 = UCase(comboBox7)
    Call CarregaCargos(Me.ComboBox7.List(Me.ComboBox7.ListIndex))
End Sub

Private Sub UserForm_Initialize()
    Call CarregaGrupos
End Sub

Private Sub CarregaGrupos()
    Dim linha As Integer, coluna As Integer
    linha = 2
    coluna = 1
    Me.ComboBox7.Clear
    With Sheets("G_Cargos")
        Do While Not IsEmpty(.Cells(linha, coluna))
            Me.ComboBox7.AddItem .Cells(linha, coluna).Value
            linha = linha + 1
        Loop
    End With
End Sub

Private Sub CarregaCargos(ByVal Cargos As String)
    Dim linha As Integer, colunaCargos As Integer, colunaGrupos As Integer
    linha = 2
    colunaCargos = 1
    colunaGrupos = 2
    Me.ComboBox8.Clear
    With Sheets("Cargos")
        Do While Not IsEmpty(.Cells(linha, colunaCargos))
            If .Cells(linha, colunaGrupos).Value = G_Cargos Then
                Me.ComboBox8.AddItem .Cells(linha, colunaCargos).Value
            End If
            linha = linha + 1
        Loop
    End With
End Sub

Vou enviar o anexo para melhor visualização do problema.

silva_jmp