[حل شده] تکرار یکسری دستور در چند شیت

[aabbasi4790]

سلام
ضمن تشکر از کلیه استادید که وقت میزارن
تو فایل پیوست من دستوری میخوام بنویسیم تا :
1- از شیت 1 تا هر تعداد شیت که داشته باشم یا بعداً ایجاد کنم
2- کل صفحه رو انتخاب کنه رنگ تم رو no fill کنه
3- و کل صفحه رو کپی کنه و همون جا پیست ولیو کنه تا فرمولها ثابت بشه
4- و آخر برگرده به شیت اولی

[aabbasi4790]

یعنی این دستور رو به بقیه شیت ها تعمیم بده تا کل شیتها تمام بشه
Cells.Select
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

[generalsamad]

با سلام
دوست عزیز قبل از ایجاد پست دقت کنید که سوال رو در تالار مربوطه بیان کنید
سوال انتقال داده شد

ببینید این کد مد نظرتون هست

Sub ChangeFill()
For s = 1 To Sheets.Count
    Sheets(s).Select
    Cells.Select
    With Selection
    Cells.Select
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With
Next s
End Sub