This might be on point:

http://support.microsoft.com/kb/213548/en-us


--
Jim
"Mo" wrote in message
ups.com...
| Hi,
|
| I am trying to import an excel sheet into an excel file. It works,
| however, cells that are more than 255 chars are cutting off...here is
| the code I am using...Please help!!!
|
| '*********************IMPORT EXCEL FILE*********************
| Dim Count As Integer
| Dim Response As Variant
|
| '***************New Code TO Extract**********************
| Dim xlBook As Excel.Workbook
| Dim xlSheet As Excel.Worksheet
| Dim CurrentWB As Excel.Workbook
| Dim FileName As Variant
|
|
| FileName = Application.GetOpenFilename _
| (filefilter:="Excel Workbook(*.xls),*.txt,All
| Files(*.*),*.*")
| If FileName = False Then
| MsgBox "You did not select a file."
| Sheets("Setup").Select
| Exit Sub
| End If
|
|
| Application.ScreenUpdating = False
| Sheets("RawData").Select
| Cells.Select
| Selection.ClearContents
| Set CurrentWB = ThisWorkbook
| Set xlBook = Workbooks.Open(FileName, False, True)
| Set xlSheet = xlBook.Worksheets(1)
| xlSheet.Copy after:=CurrentWB.Sheets(CurrentWB.Sheets.Count)
| xlBook.Close savechanges:=False
| 'Application.ScreenUpdating = True
| CurrentWB.Sheets(CurrentWB.Sheets.Count).Select
| Cells.Select
| Application.CutCopyMode = False
| Selection.Copy
| Sheets("RawData").Select
| Cells.Select
| ActiveSheet.Paste
| Columns("A:Z").EntireColumn.AutoFit
| Application.DisplayAlerts = False
| Worksheets(CurrentWB.Sheets.Count).Delete
| Application.DisplayAlerts = True
|
| Set xlSheet = Nothing
| Set xlBook = Nothing
| Set CurrentWB = Nothing
| '*********************IMPORT EXCEL FILE*********************
|