Thread: Looping through day of week

Hi all...
I'm trying to set up a simple macro to loop through some number of dates on a sheet and blank out fields next to every instance of Saturday and Sunday.

The only problem I'm having is actually finding the values "Saturday" and "Sunday"

Given a date in this format: 01/01/2009
I can convert to "Thursday"

Problem is, the vba code still "sees" 01/01/2009

I've tried copy / paste special / paste values to no avail.
I've tried changing it via VBA (a few different methods, including strings, formats, etc) with no luck.
Even tried referencing my date cells from another spreadsheet and pasting the values back in. Can't seem to get 01/01/2009 to be "Thursday"

I'm sure I'm missing something pretty simple. Can any of you smack some sense into me?

Thanks

You can use something like

If Weekday(cell.Value,vbMonday)>=6 Then cell.Offset(,1).Value = ""

Just another sample

Sub test()
Dim Cell As Range
For Each Cell In Range("A1:A13")
If Weekday(Cell) = 1 Or Weekday(Cell) = 7 Then
    Cell.Offset(, 1).Value = ""
End If
Next
End Sub

Your welcome