In a book with several sheets from any of them when I want to see a hidden sheet "Authorship" I call it through a macro
class=y2iqfc>In this Sheet "Authorship" I can be the time I give for later when I no longer need to be in this sheet exit and hide this sheet "Authorship" and return to the previous sheet in the same cell from which I went to the Sheet Authorshiplang=EN-US style='font-size:11.0pt;font-family:Arial;mso-ansi-language:EN-US'>
I send a macro this works with the particularity that it always sends me to the first visible sheetlang=EN-US style='font-size:11.0pt;font-family:Arial;mso-ansi-language:EN-US'>
Sub MUESTRA() ‘tecla ctrl+d
Application.ScreenUpdating = False '
Sheets("Autoria").Visible = xlSheetVisible
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
End With
Sheets("Autoria").Select
End Sub
Sub OCULTA()
Application.ScreenUpdating = False
Sheets("Autoria").Visible = xlSheetVeryHidden
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
End With
On Error GoTo error:
error:
End Sub
class=y2iqfc>In this Sheet "Authorship" I can be the time I give for later when I no longer need to be in this sheet exit and hide this sheet "Authorship" and return to the previous sheet in the same cell from which I went to the Sheet Authorshiplang=EN-US style='font-size:11.0pt;font-family:Arial;mso-ansi-language:EN-US'>
I send a macro this works with the particularity that it always sends me to the first visible sheetlang=EN-US style='font-size:11.0pt;font-family:Arial;mso-ansi-language:EN-US'>
Sub MUESTRA() ‘tecla ctrl+d
Application.ScreenUpdating = False '
Sheets("Autoria").Visible = xlSheetVisible
With ActiveWindow
.DisplayHeadings = False
.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False
End With
Sheets("Autoria").Select
End Sub
Sub OCULTA()
Application.ScreenUpdating = False
Sheets("Autoria").Visible = xlSheetVeryHidden
With ActiveWindow
.DisplayHeadings = True
.DisplayWorkbookTabs = True
Application.DisplayFormulaBar = True
End With
On Error GoTo error:
error:
End Sub