I was wondering if anyone knew how i would use an array for this code.

The array would hold the strings ( "Status",.....)
The "C" representing columns 1 To 19

Idealy i would use one line to say for cells 1 to C, Execute the array.


 For C = 1 To 19
                    .Cells(1, C).Value = "Status"
                    .Cells(1, C).Value = "Test Type"
                    .Cells(1, C).Value = "User ID"
                    .Cells(1, C).Value = "Probe"
                    .Cells(1, C).Value = "Date"
                    .Cells(1, C).Value = "Text Note"
                    .Cells(1, C).Value = "Faliure Reason"
                    .Cells(1, C).Value = "Serial Number"
                    .Cells(1, C).Value = "Start Time"
                    .Cells(1, C).Value = "Rig Number"
                    .Cells(1, C).Value = "First Test"
                    .Cells(1, C).Value = "Production"
                    .Cells(1, C).Value = "Verification"
                    .Cells(1, C).Value = "Test Aborted"
                    .Cells(1, C).Value = "Test Incomplete"
                    .Cells(1, C).Value = "Test Failed"
                    .Cells(1, C).Value = "Test Passed"
                    .Cells(1, C).Value = "FTF"
                    .Cells(1, C).Value = "FTP"
                Next C
            End With

.Cells(1, C).Value = HeadingCol()
Somehting like this would be my guess.

Does anyone know the solution.

Thanx George