How about recording a macro as you save a file in Lotus format, to get the
syntax?

--
Jim
"Aaron" wrote in message
...
| Hi,
|
| A gentleman helped me yesterday and showed me how to do a save as with
this
| code:
| '===================================
| Sub SaveWithDate()
| '
| Dim wb As Workbook
| Dim ws As Worksheet
| Dim varVal As Variant
| Dim strFileName As String
|
| Set wb = ActiveWorkbook
| Set ws = wb.Worksheets("$ Reference")
| varVal = ws.Range("C2").Value
|
| If IsDate(varVal) Then
| strFileName = "Glue Sched_" & Format(CStr(varVal), "mm-dd-yyyy") &
| ".xls"
| Else
| strFileName = "Glue Sched_" & Format(CStr(Date), "mm-dd-yyyy") &
| ".xls"
| End If
| ChDir "\\Lan1\Supervisor\Departments\Foam\SCHEDULING \Old Schedules"
| ActiveWorkbook.SaveAs Filename:=strFileName
|
|
| Set wb = Nothing
| Set ws = Nothing
|
| End Sub
| '======================
|
| I now need to be able to save this file as a wk4 because this person needs
| it that way. I thought I could just change the extension to wk4 above. I
| did that and it saved it that way, but he was unable to open the file. I
| have found that I need to choose the file type of wk4 rather than give it
| that extension. Can someone help with code to change the file type to wk4
as
| you would do in the drop down of the save as??