I called objRecordSet rs and objWorksheet ws,

but it seems like you could just do something like this

For CurCol = 0 To rs.Fields.Count - 1: ws.Cells(1, CurCol + 1).Value = rs.Fields(CurCol).Name: Next

ws.Range("A2").CopyFromRecordset rs