word wrap from shrink to fit
 

I have cross posted this response to the microsoft.public.excel.programming
newsgroup, which is where you should have asked the question.

The newsgroup to which you posted it is for the use of VBA in Word.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Curt" wrote in message
...
Don't know how to correct post
Found that I need to change format of worksheet have following code but do
not seem to be able to get it to change format I do copy from Data to
announcer. Data is shrink to fit want announcer to be general
Thanks
'Worksheets("Data").range("A4:A104,E4:E104,H4:H104 ,M4:M104").Copy
With Sheets("Announcer") 'Worksheets("Announcer").Select
'Columns("A:D").Select
Selection.NumberFormat = "General"
End With
'Selection.NumberFormat = "General"
Worksheets("Data").range("A4:A104,E4:E104,H4:H104, M4:M104").Copy
Worksheets("Announcer").range("A1").PasteSpecial '.Paste:=xlValues
'Columns("D:D").Select
'Selection.NumberFormat = "General"
Application.CutCopyMode = False

"Curt" wrote:

have a sheet with data in a cell shrink to fit. Dbl click on cell all
data
apears on top. When I copy to another sheet I do not shrink to fit. only
copy
and paste. Many of the cells will not go into word wrap. This cuts off
data
for printing. Is there a limit as to how large a cell can be or how many
charters it can have? Most cell open up fine those with more data stay
shrunk. I even tried to format cells on sheet I copied to and certain
cells
would stay shrunk. Otherwise print out was ok

Stuck
Thanks