bmfb

Obrigado Wendell Meneses, já funciona. Só dá um erro runtime error 1024. Vou tentar resolver. Mais uma vez obrigado pela sua ajuda. cumprimentos

Olá Wendell Menezes, muito obrigado pela sua ajuda. aqui vai o link para a folder. http://we.tl/OIqqbexEWm Cumprimentos Bruno

Ola, precisava de ajuda para resolver o codigo seguinte. É possível que haja muita coisa a alterar, pois estou a tentar aprender vba. Basicamente o que eu preciso é abrir uma lista de ficheiros que estão numa coluna, salvar em pdf e fechar o documento a seguir. Agradeço a ajuda. Sub teste ()Dim lastRow As LongDim x As Integer lastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row For x = 1 To lastRow Workbooks.Open Filename:=Cells(x, 1), _ UpdateLinks:=3 ActiveWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=Cells(x, 6) & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ openAfterPublish:=False 'ActiveWorkbook.Close Next xWorkbooks("teste.xlsm").ActivateEnd Sub