Hitting Enter in Cell then Select Sheet 1???!!!

[tellbiz]

Ok if we enter data into sheet2 cell h3 and when the user hits the enter key... how do I have it activate Sheet 1??

Thanks,
Sean

 

[SkipVought]

Hi,

In the Sheet Object for Sheet2, in the Worksheet_Change event, paste this code...

Private Sub Worksheet_Change(ByVal Target As Range)
    Set rng = Application.Intersect(Target, Range("H3"))
    If Not rng Is Nothing Then ActivateSheet
End Sub

In a new module paste this code...

Sub ActivateSheet()
    Worksheets("Sheet1").Activate
End Sub

VOLA!


Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com