Kodun neresinde hata var

[kykbt]

Arkadaşlar Merhaba

Aşaığdaki kod bu şekli ile problemsiz çalışıyor
---------------------------------------------alintı
Private Sub CommandButton1_Click()
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, a As Integer, b As Integer

Set S1 = Sheets("Satıcı01")
Set S2 = Sheets("Satıcı02")
Set S3 = Sheets("ESLESMEYENLER")
S1.Cells.Interior.ColorIndex = xlNone
S2.Cells.Interior.ColorIndex = xlNone
S3.Cells.Interior.ColorIndex = xlNone
----------------------------------------------alıntı

Fakat bu koddaki gibi sayfa adlarını hücreden almasını istiyorum. Bu durumda çalışmıyor
---------------------------------------alıntı2
Private Sub CommandButton2_Click()

Set S1 = Sheets("ESLESMEYENLER").[d2]
Set S2 = Sheets("ESLESMEYENLER").[d3]
Set S3 = Sheets("ESLESMEYENLER")
S1.Cells.Interior.ColorIndex = xlNone
S2.Cells.Interior.ColorIndex = xlNone
S3.Cells.Interior.ColorIndex = xlNone

S3.Range("A5:Z" & [A65536].End(3).Row).Select
Selection.ClearContents

End Sub
---------------------------------------------alıntı2

(Kod çalıştırıldığı yer ESLESMEYENLER sayfasıdır diğer iki sayfadan verileri kontrol ediyor
Eslesmeyen sayfasına yazıyor)
nerye müdahale gerekiyor?

 

[hsayar]

Set S1 = Sheets("ESLESMEYENLER").[d2]
yerine
strS1name = Sheets("ESLESMEYENLER").[d2]
Set S1 = Sheets(strS1name )

şeklinde dener misiniz?

 

[kykbt]

Merhaba

Hocam işlem tamam Teşekkürler