Aynı kodu kapalı dosyalarda kullanmak

[Erdinç FIRTINA]

Değerli Forum üyeleri,

Aynı kodu kapalı dosyalarda nasıl kullanabilir miyim?

Siz değerli üyelerin katkıları ile oluşturulan bu kodları kapalı dosyalarda kullanabilir miyim ? Ya da kapalı dosyalar için bir başka çözüm yolu olabilir mi ?

Sub icmal()
Dim syf As Worksheet
Application.ScreenUpdating = False
Sheets("32").Range("C165536").Clear
For Each syf In Worksheets
If syf.Name <> "32" Then
syf.Select

sonsat2 = Sheets("32").Cells(65536, "C").End(xlUp).Row + 1
syf.Range(Cells(4, "C"), Cells(75, "D")).Copy
Sheets("32").Select
Sheets("32").Range("C" & sonsat2).PasteSpecial
End If
Next
Sheets("32").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Range("A1").Select
MsgBox "Aktarma işlemi tamamlandı..!!", vbOKOnly + vbInformation, "KAYIT"
End Sub