Excell: skrive til en tekstfil

Kan du bruge dette:
Sub Export()
    Dim strTmp As String, strText As String, strFile As String
    Dim intRow As Integer, intCol As Integer
    strFile = InputBox("Databasename:", , "c:\excel\test.dat")
    If strFile = "" Then Exit Sub
    Rows("1:3").Delete
    Open strFile For Output As #1
    For intRow = 1 To ActiveSheet.UsedRange.Rows.Count
        For intCol = 1 To ActiveSheet.UsedRange.Columns.Count
            strText = Cells(intRow, intCol).Text
            strText = WorksheetFunction.Substitute(strText, "ö", "")
            Select Case intCol
              Case 1: strTmp = strTmp & strText & String(16 - Len(strText), " ")
              Case 2: strTmp = strTmp & strText & String(12 - Len(strText), " ")
              Case 3: strTmp = strTmp & strText & String(15 - Len(strText), " ")
              Case 4: strTmp = strTmp & strText & String(14 - Len(strText), " ")
              Case 5: strTmp = strTmp & strText & String(13 - Len(strText), " ")
            End Select
        Next intCol
        Print #1, strTmp
        strTmp = ""
    Next intRow
    Close
End Sub

Jeg har lagt en lidt kortere version her:
http://www.kursusmaterialer.dk/Excel%20VBA/Excel%20VBA%20-%20kode/V%e6rkt%f8jskasse.aspx

Jeps, det kunne bruges. Thanx!