Bom dia fcarlosc,

Aqui na minha máquina não apresentou erro algum.
Mas acredito que na sua máquina, o workbook ativo não seja o mesmo do formulário ativo.

No Cmb_Descricao_Change por exemplo, insira o thisworkbook antes da determinação da Sheet, como em With Worksheets("Senhas").Range("B:B") deixa assim With thisworkbook.Worksheets("Senhas").Range("B:B")

Acho que ele está procurando a Sheet "Senhas" no workbook GetOpenFile.

Qualquer coisa da o grito.
Abraço

Opa Bernardo...

Não deu mais a mensagem de erro, porém não exibe nada no combobox...!

Bom, pelomenos na planilha que anexou no tópico não há nada no intervalo que o código está puxando. Então realmente aparecerá tudo em branco.
Na planilha que está testando existe informação na sheet "Senhas" ?

Então...Com o With thisworkbook.Worksheets("Senhas").Range("B:B") não dá erro e se cadastrar algum item, vai tranquilo, porém quando fechar e abrir a planilha novamente ele faz a busca na combobox mais só aparece a descrição, os demais itens não aparecem.
Se eu não acessar via "FileName" e abrir direto a planilha "SCS v.2.0" não dá o erro no With Worksheets("Senhas").Range("B:B"), funciona normalmente as opções Incluir, Alterar e Exclui.

Usa assim:

Private Sub UserForm_Initialize()
Dim UltL As Long

    UltL = Application.WorksheetFunction.Max(3, ThisWorkbook.Worksheets("Senhas").Cells(Rows.Count, 2).End(xlUp).Row)
    Me.Cmb_Descricao.List = Application.WorksheetFunction.Transpose(ThisWorkbook.Worksheets("Senhas").Range("B2:B" & UltL))
    
End Sub

Qualquer coisa da o grito.
Abraço

Opa Bernardo,

Cara, que estranho...! Em casa é o Office 2010 e funciona de boa.
No serviço eu uso o Office 2013 e dá esses erros.
Vou tentando fazer algumas alterações e se não resolver no Office 2013 te chamo.

Att,

Francisco