The point is that to return the value in a merged range, you must refer to
the top left cell of the range. If your top left cell does not allign to a
column or row, it is difficult to set up a loop to do the job.
Unfortunately, the SpecialCells method does not include a merged cell
property. If the are all on row 1, at four cell intervals, and you have say
10 sets of merged cells, then you could use:

Dim i As Long
Set myRange = ActiveSheet.Range("A1:AN1")
For i = 1 To 40 Step 4
If Not i Is Nothing Then
x = Cells(1, i)
MsgBox x
End If
Next

"MLT" wrote:

The way this particular sheet is set up is that every 4 cells is
merged into one with a date in it. So G1:J1 and K1:N1 and so one
would be merged together and would have a date in each, say 2/10/09 in
G1:J1 and 2/11/09 in K1:N1.

Then, the cells going across in row 2 (which are not merged) will be
counted or not, based on the date of the column they are in. So for
example cells in columns G, H, I, and J would all correspond with the
date value in the G1:J1 merged cells, 2/10/09. That's why I'm trying
to find a way so that the cell gets the right date value even if the
column does not necessarily line up with the left-most cell of the
merged cell set.