How did you dimension the variables.

What I used didn't work:

Dim fswrite As Object
Dim WriteCol As String
Dim Fname As Boolean

Dim fwrite As Object
Dim tswrite As Object
Dim lastrow As String
Dim outputline As String
Dim rowcount As Long