Paste Excel2003 to Word2003
How can I change this code to create a new Word doc instead of a Excel
workbook. Sub ExportDebrief() Call CreateDebrief Dim sDebriefName As String Dim sToolName As String sDebriefName = "Debrief.xls" Sheets("Debrief Report").Activate ActiveSheet.UsedRange.Select sToolName = Range("C5").Value ActiveSheet.Copy ActiveWorkbook.SaveAs Filename:=sToolName & sDebriefName, _ FileFormat:=xlNormal Windows("NEWCCSFTMachineRecordsMaster51208.xls").A ctivate Application.DisplayAlerts = False Sheets("Debrief Report").Select ActiveWindow.SelectedSheets.Delete Application.DisplayAlerts = True End Sub |
All times are GMT +1. The time now is 10:43 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com