VBA move between sheets drop-down

[nave88]

Hi I'm using a a dropdown to jump between sheets, but the problem is if I jump from one sheet to another and want to jump back it gets stuck, then I have to pick a different sheet. Is there a way to fix that?

Sub MovetoSheet()
Dim dd As DropDown


Set dd = ActiveSheet.Shapes("Drp_Dwn").OLEFormat.Object
shtnametogo = dd.List(dd.ListIndex)
'Worksheets(ActiveSheet.Name).Shapes("Drp_Dwn").Value
Worksheets(shtnametogo).Activate
Range("A1").Activate
End Sub