Sub 各シートへのデータの反映()
Dim シート名 As Integer '変数としてシート名を使う
For シート名 = 2 To 4 'シート2から4のシートまで
Sheets(シート名).Select '〇番目のシートを選択する
'各シートの処理
Dim i As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "C").End(xlUp).Row To 1 Step -1
If Range("C" & i).Value > Range("C2") Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
Next シート名 '次のシートに移る
End Sub