Export to Excel file

Hi,

I have the following code that will export an excel file to a specific location as a PDF document. How should I change it so it saves it as an Excel document?

Const SAVE_PATH = "G:\Network Operations Department\Network Performance & Insight\2015\General Composite\Reporting\Performance Dashboards\July\"

Sub pdfProduce2()
Dim cell As Range
Dim wsSummary As Worksheet
Dim counter As Long

Set wsSummary = Sheets("Dashboard")


For Each cell In Worksheets("Dashboard").Range("U5:U34")
If cell.Value <> "" Then

'progress in status bar
counter = counter + 1
Application.StatusBar = "Processing file: " & counter & "/30"

With wsSummary
.Range("C3").Value = cell.Value
.ExportAsFixedFormat _
Type:=xlTypePDF, _
filename:=SAVE_PATH & cell.Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End If
Next cell

Set wsSummary = Nothing
End Sub