help with code please

[Gary Keramidas]

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

 

[Guest]

Gary,

Add check for valid date:

If IsDate(wEndval) Then
' 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
End If

HTH

 

[Gary Keramidas]

thanks.
i was going to try that, but when i looked for is functions in help. i didn't
see that. so i tried iserror and it didn't work right. i think i may have looked
in the wrong help, excel instead of vb.

thanks again

 

[Guest]

ummm..... Weekday values are 1 for Sunday and 7 for Saturday...not ">5"

 

[Gary Keramidas]

the comma 2 tells it to start with monday as 1, tuesday as 2 and so on. so sat
is 6 and sunday is 7

If Weekday(wEndVal, 2)