Mauro eu fisso assim da uma olhada nesse codigo
Dim Nome As String
Nome = Sheets("Dados do funcionario").Range("b3")
Sheets(Array("Menu", "Folha de janeiro", "Folha de fevereiro", "Folha de março", "Folha de abril", _
"Folha de maio", "Folha de junho", "Folha de julho", "Folha de agosto", _
"Folha de setembro", "Folha de outubro", "Folha de novembro", "Folha de dezembro", _
"Valor das Horas", "Banco de horas janeiro", "Banco de horas fevereiro", _
"Banco de horas março", "Banco de horas Abril", "Banco de horas maio", _
"Banco de horas junho", "Banco de horas julho", "Banco de horas Agosto", _
"Banco de horas Setembro", "Banco de horas Outubro", "Banco de horas Novembro", _
"Banco de horas Dezembro", "Holerite Janeiro", "Holerite Fevereiro", "Holerite Março", _
"Holerite Abril", "Holerite Maio", "Holerite Junho", "Holerite Julho", _
"Holerite Agosto", "Holerite Setembro", "Holerite Outubro", "Holerite Novembro", _
"Holerite Dezembro", "Calculo das Férias", "13º Salario")).Copy
ChDir "C:UsersDyefersonDesktopFolha de ponto"
ActiveWorkbook.SaveAs Filename:= _
"C:UsersDyefersonDesktopFolha de ponto" & Nome & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 30/03/2012 1:51 pm