Date formatting Help

D

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
 
B

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)
 
Top