'Declara a variavel publica para armazenar a planilha anterior
Public sPlanAnterior As String
' Função para ir para alguma planilha
Sub Avancar()
' guarde o nome da planilha anterior
sPlanAnterior = ActiveSheet.Name
' Selecione a planilha que vc deseja ir
Sheets("Plan1").Select
End Sub
' Função para retornar a planilha anterior
Sub RetornaAnterior()
Dim sPlan As String
' Pega o nome da planilha para anterior
sPlan = sPlanAnterior
' Pega um novo nome para a planilha anterior
sPlanAnterior = ActiveSheet.Name
' Seleciona a planilha anterior
Sheets(sPlan).Select
End Sub
Espero ue aude
se quiser guardar um histórico aconsenlho criar uma matriz
Se foi atendido responda como correta
Ok
Wesley