Hi Mr. C,

It is just a small change to your code:

For r = Firstrecord To Lastrecord
For C = FirstCol To LastCol
If C = 2 Then
Print #ff, Format( Cells(r, C), "mmddyyyy") & vbTab;
Else
Print #ff, Cells(r, C) & vbTab;
End If
Next C
Print #ff, 'blank line
Next r

Hoop This Helps


Executor