using cell addresses to create a date and enter the day of the weekends. the
code works but returns an error on feb 29. added the on error resume next, but
it still puts Sun in feb 29. can someone help?



For Each cell In Worksheets("Reports").Range("B4:M34")
On Error Resume Next

'this creates the date
wEndVal = cell.Column - 1 & "/" & cell.Row - 3 & "/" & _
Year(Worksheets("Reports").Range("f2").Value)

' this puts the day in the cell if it's a weekend
If Weekday(wEndVal, 2) 5 Then
cell.Value = Format(wEndVal, "ddd")
cell.HorizontalAlignment = xlCenter
cell.Font.Bold = True
End If

Next

--


Gary