Macro uses "Save As" to a specific location

I have a save as part written in my code and I want it to save to a specific
folder (Lab_Inspection_Data in My Documents). However, the way I have it
written right now does not work. Could someone show me how to write the code
so it saves in the correct folder? Here is my code...

sFilename = Format(Worksheets("Checklist").Range("H4").Value & "_" &
Worksheets("Checklist").Range("B4").Value, "yyyy-mm-dd")
ans = MsgBox("Save file as " & sFilename)
If ans = vbOK Then
ActiveWorkbook.SaveAs "C:\My Documents\Lab_Inspection_Data\" & sFilename
End If

Thanks,
Kyle

ActiveWorkbook.SaveAs "C:\My Documents\Lab_Inspection_Data\" & sFilename &
".xls"

If I am reading your code accurately, the required ".xls" is missing.

--
Best wishes,

Jim


"kyle" wrote:

> I have a save as part written in my code and I want it to save to a specific
> folder (Lab_Inspection_Data in My Documents). However, the way I have it
> written right now does not work. Could someone show me how to write the code
> so it saves in the correct folder? Here is my code...
>
> sFilename = Format(Worksheets("Checklist").Range("H4").Value & "_" &
> Worksheets("Checklist").Range("B4").Value, "yyyy-mm-dd")
> ans = MsgBox("Save file as " & sFilename)
> If ans = vbOK Then
> ActiveWorkbook.SaveAs "C:\My Documents\Lab_Inspection_Data\" & sFilename
> End If
>
> Thanks,
> Kyle