Paste Excel2003 to Word2003

G

Gizmo

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").Activate
Application.DisplayAlerts = False
Sheets("Debrief Report").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA for Dependents shortcut menu 0
Create CSV 5
Code execution is correct but generates Error :The file you aretrying to open is in a different form 3
VBA code working in excel2003 but not in excel2007 2
Simplify save code 11
Move some sheets to a new workbook, without macros, and withoutbreaking link btwn Pivot Tables and P 0
Save with ref. to cell A1 2
Determine whether the user has saved the file? 4

Top