CFDJ Issue 2: Vol: 8 p.6
WDDX & Data Sharing
Author: Tim Buntel

Listing 1:

For Each rngTemp In rng1.Cells
    If rngTemp.Row <> 1 Then
    If rngTemp.Row <> WhatRow + 1 Then
          WhatRow = WhatRow + 1
         End If
ThisColumn = ActiveSheet.Cells(1, rngTemp.Column).Value
    MyRS.setField WhatRow, ThisColumn, rngTemp.Value

End If

Next rngTemp