Sub s()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Dim MyDate
Dim i, j As Integer
For i = 4 To 31
Set ws = wb.Worksheets(Trim(Str(i)))
MyDate = DateSerial(2010, 1, i)
If Weekday(MyDate) = vbMonday Or Weekday(MyDate) = vbWednesday Or Weekday(MyDate) = vbFriday Then
ws.Cells(29, 7).Value = 8
End If
For j = 47 To 53
ws.Cells(j, 1).Value = ""
ws.Cells(j, 3).Value = ""
ws.Cells(j, 6).Value = ""
ws.Cells(j, 8).Value = ""
Next
Next
End Sub