you said looping so here is a looping macro

Sub iffriday()
For Each c In Selection
If Application.Weekday(c) = 6 Then MsgBox c.Address
Next
End Sub

--
Don Guillett
SalesAid Software

"EdStevens" wrote in message
oups.com...
Looping through a series of cells with dates, need to compute from the
given date the date of the following Friday. If the given date *is*
Friday, I need that date returned, not the date of the Friday of the
following week.

Thanks.