Salvar dados em uma outra pasta de trabalho

[leno]

Bom Dia , to fazendo um Projeto em Vba mais tou com um problema tenho que preencher varias planilhas mais essas planilhas são em pastas de trabalhos diferentes, dae quando abro essa planilha pelo vba não consigo escerever nelas dá um erro.

Private Sub ComboBox1_Click()

aqui tou usando um combobox pra selecionar a planilha em que quero cadastar os produtos .

se alguém interessar em me ajudar posso mandar o codigo no email pra analisar melhor

desde já obrigado

Dim planilha As Object

Select Case ComboBox1.Value

Case 0 'Fornecedores

Set wsCadastro = ThisWorkbook.Worksheets("Fornecedores")

Call HabilitaBotoesAlteracao

Call CarregaDadosInicial

Call DesabilitaControles

Case 1 'Cli_1_Anexo

Set wsCadastro = ThisWorkbook.Worksheets("Cli_1_Anexo") <= nesse caso aqui eu consigo entrar com os dados normal porque essa planilha ta na mesma pasta do codigo

Call HabilitaBotoesAlteracao

Call CarregaDadosInicial

Call DesabilitaControles

Case 2 'Teste

Const ConsolidatedSheetName As String = "Teste"

Set wsCadastro = ThisWorkbook.Worksheets(ConsolidatedSheetName)

Call HabilitaBotoesAlteracao

Call CarregaDadosInicial

Call DesabilitaControles

Case 3 'Cria Pasta

Dim xls As Excel.Application

Dim wb As Excel.Workbook

Dim ws As Excel.Worksheet

Set xls = New Excel.Application

Set wb = Workbooks.Open("C:\Proposta.xls") <= Aqui tou abrindo a pasta de trabalho

Set ws = ThisWorkbook.Worksheets("Plan2") <= Aqui tou abrindo a planilha que quero inserir os dados

'Set ws = Worksheets("Plan2")

'Set wsCadastro = ActiveWorkbooks

Call HabilitaBotoesAlteracao

Call CarregaDadosInicial

Call DesabilitaControles

End Select

End Sub