Macro that unhides a sheet and takes the user to that sheet

[Johanna Gronlund]

Hello,

I have a macro on sheet 'inputs' that unhides another sheet called
'calculations' and takes the user there from when they click on the button.
The codes is as follows:

Sub Reveal()
With ThisWorkbook
If Worksheets("Calculations").Visible = False Then
Worksheets("Calculations").Visible = True
Worksheets("Calculations").Activate
End If
End With
End Sub

This works well but I would now like to add a feature. I would like the same
button to take the user from the 'inputs' sheet to the 'calculations' sheet
even if the sheet is already revealed. How could I do this?

Thanks very much in advance!

 

[Jacob Skaria]

Try

Sub Reveal()
With Worksheets("Calculations")
If .Visible = False Then .Visible = True
.Activate
End With
End Sub

 

[Johanna Gronlund]

That was very helpful and quick again Jacob. Thank you so much for your
continuing support.