you could at least run this to adjust the columns widths

Option Explicit
Dim lastcol As LongSub adj_col()
lastcol = Cells(1, 256).End(xlToLeft).Column
Range(Columns(1), Columns(lastcol)).EntireColumn.AutoFit
End Sub


--


Gary


"Edd" wrote in message
...
We have an automated mainframe process that sends a Lotus Notes email to
the
users of our system. This email contains a link to a mainframe file so
that
when the user clicks the link the file will open in Excel. An example of
the
link:
HTTP://SDCVM01.CGS.COM:82/~ITSWEB.10...,18,13,11,8,60
Where HTTP thru 102/ is the server ID, FLC is a mainframe command (we use
VM
CMS), DIS.OPDICB34.SPREAD(0) is the data set name on the mainframe, and
&LENGTHS= describes the fixed width data by Excel column (first 3
characters
go to column 1, next 24 to col 2, next 24 to col 3, next 4 to col 4, etc.)
This process works quite well, but I would like to know if there is a way
to
"pretty up" the resulting spreadsheet. Right now the users have to
manually
adjust the column widths to see all the data, we have no control over
fonts,
etc. Does anyone know of a way to supply more control information to
Excel?

Thanks for your help.
--
Edd