مرحبا بك إبراهيم
أولا : قائمة بأسماء الشيتات
ثانيا : الخلية التى بها الأسماء نعمل لها داتا فاليديشن بحيث تظهر بها القائمة السابقة
ثالثا : بالكود الموجود فى حدث التغيير بالصفحة ننتقل إلى اسم الشيت الموجود بالخلية
و هذا هو الكود الذى وضعته بكل الأوراق كى يمكنك العودة
Private Sub worksheet_change(ByVal target As Excel.Range)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = Sheets("1").Range("b1").Value Then
ws.Visible = True
ws.Select
End If
Next ws
End Sub