Hello
I have made a macro and want it to be more general,so that I can apply
it with any .log text file delivered by a audio ripping program. I want
a 'file open' at the beginning and a 'save as' at the end.
The trouble is that the macro will only work on the original data,
which is not much use.
I have been using the import data option to bring in the data which is
fixed width and use it in a prepared template.

I know nothing about Visual Basic, I do know that is what I need to
make the macro more general.

I can post the text of the macro.

Sub Format1()
'
' Format1 Macro
' Macro recorded 23/10/2005 by Engles
'

'
Range("A2").Select
With
ActiveSheet.QueryTables.Add(Connection:="TEXT;O:\B BCSO\BBCSO002.log", _
Destination:=Range("A2"))
.Name = "BBCSO002"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 9)
.TextFileFixedColumnWidths = Array(20, 15, 36, 19)
.Refresh BackgroundQuery:=False
End With
ChDir "O:\BBCSO"
ActiveWorkbook.SaveAs Filename:="O:\BBCSO\BBCSO.xls",
FileFormat:=xlNormal _
, Password:="", WriteResPassword:="",
ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

Thanks for your help

Mike Engles