Hi @ahmed belal ,
Could you give this a try?
Set xlObj = CreateObject("Excel.Application")
xlObj.visible = False
'Filepath goes in here
Set xlFile = xlObj.Workbooks.open(WScript.Arguments.Item(0))
'Section which performs the wordwrapping
For Each wk In xlFile.Sheets
wk.Cells.WrapText = True
Already have an account? Login
Enter your username or e-mail address. We'll send you an e-mail with instructions to reset your password.
Sorry, we're still checking this file's contents to make sure it's safe to download. Please try again in a few minutes.
Sorry, our virus scanner detected that this file isn't safe to download.