View Single Post
 
Old 08-28-2019, 06:01 PM
eduzs eduzs is offline Windows 10 Office 2010 32bit
Expert
 
Join Date: May 2017
Posts: 262
eduzs is on a distinguished road
Default

Try that (backup before doing any modification):
after Set rng statement:
Code:
rng.Cells.WrapText = True
Modify:
Code:
.PasteSpecial DataType:=1
To:
Code:
.Paste
__________________
Backup your original file before doing any modification.
Reply With Quote