VBA code if cell is null - skip

Hi, I wonder if any-one could help. I have a script to save each row in an excel file as a text file. This works fine, but I now want it to ignore a column if there is no data in it, rather than show the heading and a blank field.
So if cell a is blank, then go to cell b etc...

The part of the script I want to edit is:

FileNum = FreeFile
With wks
For iRow = 1 To .Cells(.Rows.Count, "e").End(xlUp).Row
Close #FileNum
Open myFolderName & .Cells(iRow, "e").Value For Output As FileNum
Print #FileNum, myHeader, .Cells(iRow, "a").Value
Print #FileNum, myHeader2, .Cells(iRow, "b").Value
Print #FileNum, myHeader3, .Cells(iRow, "c").Value
Print #FileNum, myHeader4, .Cells(iRow, "d").Value
Print #FileNum, myHeader5, .Cells(iRow, "e").Value


Next iRow
End With

Any help would be appreciated.

Many Thanks.
Louise

Welcome on forum ...
Take few minutes to read forum rules (use "code" tags for show your implementation code)

Try this code, I hope it will works as you want

Please Login or Register  to view this content.

Best Regards
MaczaQ

If you have "option explicit" you should declare all used variable

Try this:

Please Login or Register  to view this content.

Best Regards
MaczaQ

Hi Louise,

MyHeader needs to be declared as a Variant rather than as a String.

Also, you need to be careful with your variable declarations:

Please Login or Register  to view this content.

In VBA, this line of code will declare FileNum and i as Variants, and iRow as an Integer.

To declare all three as Integers, you should use either of these:

Please Login or Register  to view this content.

Please Login or Register  to view this content.

Also, in VBA, an Integer is 16-bit and can hold whole numbers from -32,768 to 32,767. The number of rows in an Excel worksheet can exceed 32,767, which means that the code could be prone to an overflow error. Whenever you're using variables which reflect row numbers, use Long data types.