Error with selecting range

[cmeier7]

Do
        answer2 = InputBox("Do you want to stay on the current Requirement page or go to main Roll-Up? (stay/go)")
    
        If answer2 = "stay" Then
            ActiveCell.Value = Worksheets("Sheet2").Range("A1")
            Exit Do
    
        ElseIf answer2 = "go" Then
            ActiveCell.Value = Worksheets("Sheet1").Range("A1")
            Exit Do
    
        Else
            MsgBox ("Please type either stay or go in lower case lettering.")
        End If
    Loop

Everything works. However, when I type "go," the program does not actually transfer you to Sheet (cell A1 in Sheet1 is selected, but I stay on Sheet2). Any ideas? Hope this makes some sense.

 

[timorrill]

Maybe this is what you are going for:

Do
        answer2 = InputBox("Do you want to stay on the current Requirement page or go to main Roll-Up? (stay/go)")
    
        If answer2 = "stay" Then
            Worksheets("Sheet2").Activate
            Worksheets("Sheet2").Range("A1").Select
            Exit Do
    
        ElseIf answer2 = "go" Then
            Worksheets("Sheet1").Activate
            Worksheets("Sheet1").Range("A1").Select
            Exit Do
    
        Else
            MsgBox ("Please type either stay or go in lower case lettering.")
        End If
    Loop

 

[cmeier7]

Ahh, thank you Tim. I was not familar with the .activate- this seems to work great!