Tentando auxiliar,
uma pequena alteração no codigo do colega Wagner Morel, assim não há necessidade de repetição do mesmo para cada "botão"
Sub Navega()
Dim NomeObjeto As String, Escrito As String
'
'Identifica qual foi o objeto chamado/clicado (Caller)
NomeObjeto = Application.Caller
'Identifica nome do arquivo
Escrito = "V0" & Mid(ActiveSheet.DrawingObjects(NomeObjeto).Text, 6, 3)
Sheets(Escrito).Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("cacifes").Select
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 09/11/2012 7:18 am