In another sub, this works just fine! The only difference is that I have it
select a different sheet and do the same thing.

This is failing on : Print #3, Trim(Cells(l, 1)) 'sample id
saying that there is an application-defined or object-defined error.
Sometimes it says the file is already open.

OK Here's my code:

Public Sub cations()
Dim l, m, n As Integer

Sheets("cations").Select


Open "c:\textfiles\postmcrocations.txt" For Output As #3
Open "c:\textfiles\temp\postmcrocations.tmp" For Output As #4



For l = Cells(2, 17) To Cells(2, 18)
'header info
Print #3, Trim(Cells(l, 1)) 'sample id
Print #4, Trim(Cells(l, 1))

Print #1, "$cations" 'multicomponent
Print #1, "6" 'number of analytes
For m = 2 To 7
n = m + 7
Print #1, Trim(Cells(1, m)) 'analyte name
Print #1, Trim(Cells(l, m)) 'analyte value
Print #1, Trim(Cells(l, n)) 'chromatagram location for
secondary result)
Next m


Next l

Close #3
Close #4

End Sub


Thanks!

Jesse

Sorry, I found my error. On using a different sheet, the number of field
values changed. On:
For l = Cells(2, 17) To Cells(2, 18), 17 should have been 16 and 18 should
have been 17.

Thanks anyway!

Jesse

"cutthroatjess" wrote:

In another sub, this works just fine! The only difference is that I have it
select a different sheet and do the same thing.

This is failing on : Print #3, Trim(Cells(l, 1)) 'sample id
saying that there is an application-defined or object-defined error.
Sometimes it says the file is already open.

OK Here's my code:

Public Sub cations()
Dim l, m, n As Integer

Sheets("cations").Select


Open "c:\textfiles\postmcrocations.txt" For Output As #3
Open "c:\textfiles\temp\postmcrocations.tmp" For Output As #4



For l = Cells(2, 17) To Cells(2, 18)
'header info
Print #3, Trim(Cells(l, 1)) 'sample id
Print #4, Trim(Cells(l, 1))

Print #1, "$cations" 'multicomponent
Print #1, "6" 'number of analytes
For m = 2 To 7
n = m + 7
Print #1, Trim(Cells(1, m)) 'analyte name
Print #1, Trim(Cells(l, m)) 'analyte value
Print #1, Trim(Cells(l, n)) 'chromatagram location for
secondary result)
Next m


Next l

Close #3
Close #4

End Sub


Thanks!

Jesse