Kitap adını değişken yapma

[hmtstc]

Arkadaşlar merhaba,

Farklı iki çalışma kitabı ile çalışıyorum. 2. çalışma kitabının farklı adları olabiliyor. Bu nedenle çalışma kitabı adını değişken yapabilir miyiz?
Yani açık olan kitabın adını alacak
Aşağıda örneklemeye çalıştım.

Şimdiden teşekkürler

Aşağıdaki şekilde de çözdüm arkadaşlar
Kusura bakmayın.

bbb = ThisWorkbook.Name
Windows("Kitap 1.xls").Activate
Sheets("Sheet1").Select
Sheets("Sheet1").Copy after:=Workbooks(bbb).Sheets(1)
Windows("ccc.xlsm").Activate
Sheets("Sheet1").Select

 

[tarhan822]

dim wb as string
if k=1 then wb="Denizli"
if k=2 then wb="Afyon"
window(wb & ".xlsm").activate

sayfa adlarını bu mantıkla değişken yaptığımda çalışıyor, kitap olarak da aynı mantık olur sanıyorum.

 

[askm]

Aşağıdaki şekilde deneyin.

kitap = Sayfa1.Range("a1").Value
Workbooks(kitap).Activate