Hücrede yazan değerle aynı adlı sayfayı aktif etme

[Gamma]

Merhaba
Hücrede yazan değerle aynı adlı sayfayı aktif etmek istiyorum.

Örneğin:
A dosyasında B sayfasına B2 hücresinde 1 yazıyor.
Ben K dosyasındaki 1 isimli sayfayı aktif etmek istiyorum.

Şimdiden çok teşekkür ederim.

 

[Orion1]

Buyurun.
Her 2 dosyada açık olmalı.
A dosyası aktif olmalı.
K dosyasının uzantısı xlsx olmalı.

Sub aktifsayfa59()
Dim syf As String
syf = Range("B2").Value
Workbooks("K.xlsx").Activate
Sheets(syf).Select
End Sub

 

[Gamma]

Çok teşekkür ederim

 

[Orion1]

Çok teşekkür ederim

Rica ederim.
İyi çalışmalar.

 

[parametre]

İlginç bir yaklasım Teşekkur ederim

 

[Orion1]

İlginç bir yaklasım Teşekkur ederim

Rica ederim.
İyi çalışmalar.