Dicas  Excel Macros VBA

Imprime arquivo e salva como dados range(E4)
Pergunta 40:É possível imprimir e salvar como  os dados no referente célula E4, é Possível?

Resposta 40:

É possível                        " Salva como:"   (Meus documentos130707-22-13)

Sub Imprime_Arquivo()
RS = Range("E4")
Range("12:12").Select
Selection.RowHeight = 0
ThisWorkbook.SaveAs "C:\Meus documentos\" & RS & ".xls"
ActiveWindow.SelectedSheets.PrintOut Copies:=3, Collate:=True
MsgBox "Your Routing Sheet Has Printed, Please Pick Up From Your Default Printer", vbInformation
Application.OnTime Now() + TimeValue("00:00:01"), "AutoClose"
End Sub

Sub RoutingSheet()
On Error GoTo Errorhandler
SheetNumber = InputBox("Entre com numero da planilha , Entre 0 se voce estiver iniciando", "TOTAL PLANILHAS COMPLETADAS HOJE", Range("F2"))
Select Case SheetNumber
Case Else
Range("F2") = SheetNumber + 1
End Select
Exit Sub
Errorhandler:
MsgBox "Entre com o número da Planilha válido!!", , "ERROR"
Call RoutingSheet
End Sub

Sub AutoClose()
ThisWorkbook.Close SaveChanges:=False
End Sub