Isso é bem fácil de resolver. Insira o código aqui que eu dou uma olhada. Mas basicamente você terá que colocar algo do tipo... Activeworkbook.Sheets("nome_da_planilha_com_a_tabela_3").Select 'seleciona a planilha com a tabela 3 Range("célula").Value = [nome_do_listbox].Value 'Coloca o valor do listbox no local especificado em 'range'. Óbvio que essa é só a ideia básica. Dá para ir muito mais além.