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