هاپرلینک در اکسل

[ali719]

سلام
خسته نباشید
در فایل پیوست در شیت 6 در ستون a2 می خوام اسم هر شیت را که نوشتم با انتخاب آن اسم یا اینتر کردن به آن شیت بروم یعنی اگر نوشتم 2 و روی آن کلید کردم شیت 2 فعال گردد و اگر در همون سلول نوشتم 4 و اینتر کردم شیت 4 فعال گردد.
برای این منظور باید چکار کنم
ممنون

[misammisam]

با سلام
شما میتونید از کد زیر استفاده کنید ، بهتره که شیت اصلی رو قفل کنید مثل فایل ضمیمه .

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Range("a2").Value <> "" Then
i = Range("a2").Value
Sheets(i).Activate
End If
End Sub