Macro to Access Worksheet Via Popup Box

[JimmiOO]

I have a macro below that gives me a popup box that lets me type in the new sheet i want to access. etc(sheet1.xls) It give me 2 boxes one i must type the old sheet i currently access etc(sheet0.xls) and the next is the new sheet i will now be accesssing. Is there a way to change this so i only get one box that will let me type in the new sheet i want to access?

Sub Formulas_Click()

    Dim Old_Sheet As String, New_Sheet As String

Old_Sheet = InputBox("Please enter sheet name currently being referenced")
New_Sheet = InputBox("Please enter sheet name you wish to reference")

With Sheets("STOCK").Range("G5")

    .Formula = Replace(.Formula, Old_Sheet, New_Sheet, , , vbTextCompare)

End With