Hi,
you may have to do it by column - here is a code snippet that worked for
me:
oRange = oXL.Range([A1], oXL.ActiveCell.SpecialCells(11))
i=0
FOR EACH oColumn IN oRange.Columns
i = i + 1
?i, oColumn.Address, oColumn.EntireColumn.NumberFormat,
ISNULL(oColumn.NumberFormat)
IF ISNULL(oColumn.NumberFormat)
oColumn.NumberFormat = "Dd-Mm-yyyy"
ENDIF
oColumn.EntireColumn.AutoFit
ENDFOR
Andrew Davies MBCS CITP
- AndyD 8-)#
**********************************************************************
Manchester City Council supports Smokefree England - 1 July 2007
This email and any files transmitted with it are confidential and intended
solely for the use of the individual or entity to whom they are addressed. If
you have received this email in error please notify the system manager.
This footnote also confirms that this email message has been swept by
MIMEsweeper for the presence of computer viruses.
Please contact [EMAIL PROTECTED] with any queries.
**********************************************************************
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
Searchable Archive: http://leafe.com/archives/search/profox
This message: http://leafe.com/archives/byMID/profox/[EMAIL PROTECTED]
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
