Now I am testing this:

[vba]Sub testcode()

Dim sDirToSaveTo As Variant
Dim sDirCurrent As String
Dim lError As Long
'Make note of the current directory
sDirCurrent = "H:\Dblois"
If sDirDefault = vbNullString Then
'If optional arguement not supplied then
'assign current directory as default
sDirDefault = "H:\Dblois"
Else
'If option arguement is supplied, test path to ensure
'that it exists. If not, assign current directory
If Len(Dir(sDirDefault, vbDirectory)) = 0 Then
sDirDefault = sDirCurrent
End If
End If
'Change the drive and directory
'*Drive change is unecessary if same, but takes as long to test
' as just changing it
If Not Mid(sDirDefault, 3, 2) = "\\" Then
'Not a network drive, so use ChDir
ChDrive Left(sDirDefault, 1)
ChDir (sDirDefault)
Else
'Network drive, so use API
'lError = SetCurrentDirectoryA(sDirDefault)
If lError = 0 Then _
MsgBox "Sorry, I encountered an error accessing the network file path"
ChDir (sDirDefault)
End If
sDirToSaveTo = sDirDefault
If Not sDirToSaveTo = False Then ChDir (sDirDefault)
If Not Application.Dialogs(xlDialogSaveAs).Show(, 1) Then
MsgBox "The Report did not Save."
End If[/vba]

It still won't work? Ken since it is your code maybe you know what I am doing wrong?