Date formatting Help

[Db1712]

This did not seem to work...it returned errors..I'm missing a step

Application.Run
Range("F54:H54").Select
Selection.Sum
Cell.Value +7
End Sub

 

[Bob Phillips]

All you need is

For Each cell In Range("F54:H54")
If Weekday(cell.Value) =1 Then
cell.Value = cell.Value + 7
End If
Next cell

--

HTH

RP
(remove nothere from the email address if mailing direct)