VBA Printing only columns with data

Hi all,

I have data in the following format that I'm trying to print to a text document:

Periods	1	2	3	4	5
Claim 1	500	200	300
Claim 2		100	200

As some background about the data set, a group can have claims in any period, and can also not be observed for certain periods (so in the above example, this group isn't observed for periods 4 & 5). My goal is to print out this data to a text document, where I want to keep the empty cells within the observed periods (such as claim 2 period 1), but don't want to keep the empty cells for non-observed periods. All ""Claims #" rows are contained within a single named range (named "Claims"), and there can be more than the 2 claims seen above (further numbers are hidden until used).

Here's my current code:

Code:

---

        Set CurrentRng = Range("Claims").SpecialCells(xlCellTypeVisible)
            For Each cell In CurrentRng
                    Print #SaveFileNum, .Name & Chr(9) & "Claims" & Chr(9) & cell
                End If
            Next cell

---

So here I'm printing the sheet name, range name, and values from the unhidden cells to a text document. I want to find a way to get rid of the 0 values from periods 4 & 5 as well.

I also have a "Periods" field that gives me the number of observed periods(i.e. in the above example Periods = 3).

Any ideas?