Hi,

I have macro that exports certain range to text file. It goes through first to last row and exports it to Text file. Here is the part of the code:

        For Each myRecord In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
            With myRecord
                For Each myField In Range(.Cells, Cells(.Row, Columns.Count).End(xlToLeft))
                sOut = sOut & DELIMITER & DEL & myField.Text
                Next myField
                Print #nFileNum, Mid(sOut, 2)
                sOut = Empty
            End With
        Next myRecord
The problem is that sheets might by empty. I would like to add something to this code ( I guess some IF condition) so that all blank rows are skipped and not exported to text file.

Any help would be highly appreciated!!!

Thanks!!!