Sayfanın Yerini Kod İle Değiştirmek

[baydeniro]

Merhaba Arkadaşlar,
Bir sayfanın yerini kod ile değiştirmek mümkün müdür ? Gideceği sayfayı Hücreden belirlemek istiyorum.
Aşağıdaki kod ile sabit bir sayfa belirleyebiliyorum. Ama hedef sayfayı hücreden belirlemek için kodu nasıl değiştirmek gerekir ?
B1 hücresinde ZONGULDAK yazılı.

Sub TASI()
Sheets("ANKARA").Select
Sheets("ANKARA").Move After:=Sheets([B1])
End Sub

 

[muratboz06]

Sub TASI()
Sheets("ANKARA").Move After:=Sheets(ActiveSheet.Range("B1").Value)
End Sub

 

[baydeniro]

Sub TASI()
Sheets("ANKARA").Move After:=Sheets(ActiveSheet.Range("B1").Value)
End Sub

muratboz06 üstadım çok çok teşekkür ediyorum. Harika oldu. Sağlıcakla kalın.