When I try to save a Document from a User Form Control Button I get the
following Error. It happens when you go to save the Document and hit Cancel.
If you save the Document it works perfect, but not when you Cancel it.

What I want to happen is the Message Pops Up. What did I do wrong & how do I
fix it?

Run-Time Error '424': Object required

' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

If FileToSave = False Then

MsgBox "The Close Method Failed, No Document Saved", , "C.E.S."

Exit Sub

End If

End Sub

Thanks

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

Change the above line to:

Set bk = SaveAsFilename:=Application.GetSaveAsFilename(strF ile)

Then add this line:

bk.Save




"Brian" wrote in message
...
When I try to save a Document from a User Form Control Button I get the
following Error. It happens when you go to save the Document and hit
Cancel.
If you save the Document it works perfect, but not when you Cancel it.

What I want to happen is the Message Pops Up. What did I do wrong & how do
I
fix it?

Run-Time Error '424': Object required

' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

If FileToSave = False Then

MsgBox "The Close Method Failed, No Document Saved", , "C.E.S."

Exit Sub

End If

End Sub

Thanks

Now I am getting this error message "Compile Error: Syntax Error". The Set bk
Line Turned Red.


' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

Set bk = SaveAsFilename:=Application.GetSaveAsFilename(strF ile) (Turned
Red)

bk.Save

Exit Sub

If FileToSave = False Then

MsgBox "The Save Method Failed, No Document Saved", , "C.E. Singleton
Co. of Florida, Inc."

End If

End Sub

"JLGWhiz" wrote:

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

Change the above line to:

Set bk = SaveAsFilename:=Application.GetSaveAsFilename(strF ile)

Then add this line:

bk.Save




"Brian" wrote in message
...
When I try to save a Document from a User Form Control Button I get the
following Error. It happens when you go to save the Document and hit
Cancel.
If you save the Document it works perfect, but not when you Cancel it.

What I want to happen is the Message Pops Up. What did I do wrong & how do
I
fix it?

Run-Time Error '424': Object required

' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

If FileToSave = False Then

MsgBox "The Close Method Failed, No Document Saved", , "C.E.S."

Exit Sub

End If

End Sub

Thanks


.

My error, too hasty. Correct that line to:

Set bk = Application.GetSaveAsFilename(strFile)


"Brian" wrote in message
...
Now I am getting this error message "Compile Error: Syntax Error". The Set
bk
Line Turned Red.


' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

Set bk = SaveAsFilename:=Application.GetSaveAsFilename(strF ile) (Turned
Red)

bk.Save

Exit Sub

If FileToSave = False Then

MsgBox "The Save Method Failed, No Document Saved", , "C.E. Singleton
Co. of Florida, Inc."

End If

End Sub

"JLGWhiz" wrote:

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

Change the above line to:

Set bk = SaveAsFilename:=Application.GetSaveAsFilename(strF ile)

Then add this line:

bk.Save




"Brian" wrote in message
...
When I try to save a Document from a User Form Control Button I get the
following Error. It happens when you go to save the Document and hit
Cancel.
If you save the Document it works perfect, but not when you Cancel it.

What I want to happen is the Message Pops Up. What did I do wrong & how
do
I
fix it?

Run-Time Error '424': Object required

' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

If FileToSave = False Then

MsgBox "The Close Method Failed, No Document Saved", , "C.E.S."

Exit Sub

End If

End Sub

Thanks


.

Have you declared bk as a general variable and assigned that to a workbook
object..or else try

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String
Dim bk As Workbook

Set bk = ActiveWorkbook

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile)

If FileToSave = False Then

MsgBox "The Close Method Failed, No Document Saved", , "C.E.S."

Exit Sub

End If

End Sub

--
Jacob


"Brian" wrote:

When I try to save a Document from a User Form Control Button I get the
following Error. It happens when you go to save the Document and hit Cancel.
If you save the Document it works perfect, but not when you Cancel it.

What I want to happen is the Message Pops Up. What did I do wrong & how do I
fix it?

Run-Time Error '424': Object required

' Save Engineering Spec 11 Control Button

Private Sub Save_Engineering_Spec_11_Click()

Dim strFile As String

strFile = "SPEC " & TEO_No_1.Value _
& Space(1) & CLLI_Code_1.Value _
& Space(1) & CES_No_1.Value _
& Space(1) & TEO_Appx_No_2.Value

bk.SaveAs Filename:=Application.GetSaveAsFilename(strFile) (Error
Message)

If FileToSave = False Then

MsgBox "The Close Method Failed, No Document Saved", , "C.E.S."

Exit Sub

End If

End Sub

Thanks