PedroCosta_85

Edson.... Impecável Funciona 5 estrelas. Estava agora a tentar aproveitar esse nome automatico para guardar o ficheiro com esse mesmo nome mas dá um erro 1004 :/ utilizei a seguinte: Sub Salva_Planilha() Dim Nome As String Nome = Worksheets(216).Range("A1") ActiveWorkbook.SaveAs Filename:="Y:\Pedro Costa\Prozinco\" & Nome & ".xls", _ FileFormat:=xlNoRestrictions, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False End Sub A folha em questao é a ultima de todas que está mencionada no excel como folha 216 dai ter utilizado no "Worksheets". Eu utilizo o Excel 2013, nao sei se faz diferença na linguagem de programação. Faz?

Continua sem dar, aparece a celula "#NOME?"

Bom dia, Estou com problemas em descobrir uma maneira de utilizar a funçao RANGE mas colocar alem de texto utilizar uma formula na mesma celula. É possivel? Eu tenho andado a tentar, mas diz FALSO, com a seguinte expressão: Sub InsertTodaysDate() Range("A4").Select Selection.Formula = "Prozinco " & Selection.Formula = "=text(now(),""mmm dd yyyy"")" End Sub Eu queria era que ele escrevesse "Prozinco - 12-12-2012" , sendo a data com a função HOJE Obrigado