Hi Russ

You could try using application.sendkeys,

add this code to a new module

Sub ShowSheet()
Sheets("sheet3").Activate 'Change to the name of the sheet you want to
show
End Sub

Then in the sheet you want to show until the user presses enter (for
this code it's sheet3) add the following code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.SendKeys (ENTER)
Sheets("sheet2").Activate
End Sub

this will change back to sheet2 when the user presses enter

hope this helps you out

S