Makrolu sayfanın ismini nasıl değiştirebilirim

[teolojit]

slm arkadaşlar
Aşağıdaki kodda sayfa1 ismini Hacim Tablo yaptım makro çalışmdı çalışması için nasıl değiştirecem.

Sub aktarr()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("sayfa1")
For i = 2 To 37
s1.Cells(i, Cells(1, "e")) = Cells(i, "d")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[yanginci34]

Böyle denermisiniz.

Sub aktarr()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("[COLOR="Red"]Hacim Tablo[/COLOR]")
For i = 2 To 37
s1.Cells(i, Cells(1, "e")) = Cells(i, "d")
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

 

[teolojit]

Teşekkür ederim

 

[yanginci34]

Rica ederim dönüş yaptığınız için teşekkürler iyi geceler