isimler sayfası hazırlama

[tasduvarlar]

ben excelde çalışan arkadaşlarımız için sayfa hazırlama istiyorum.

kişinin ismine tıkladığımda onunla ilgili sayfa açılsın istiyorum.

umarım yardımcı olursunuz

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A5:A" & Cells(65536, "A") _
.End(xlUp).Row)) Is Nothing Then Exit Sub
On Error Resume Next
MsgBox ActiveCell.Value
Sheets(ActiveCell.Value).Select
End Sub

 

[tasduvarlar]

teşekkürler