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
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