Save Worksheet As CSV Text File

I am copying a sheet out to a new workbook in order to save as a CSV file. I was wondering if there was a better way of doing this than the code below which uses ActiveWorkbook to determine the newly copied sheet.

Sub test()
Dim OutputFile As Workbook, InputFile As Workbook
Dim sDD As Worksheet
Set InputFile = Workbooks.Open("H:TestTestInput.xls")
Set sDD = InputFile.Worksheets("Data Dump")
sDD.Copy
Set OutputFile = ActiveWorkbook
OutputFile.SaveAs Filename:="H:TestTestOutput.csv", FileFormat:=xlCSV
End Sub..................