Excel 2010 save-as issue...

[sconly]

Can anyone tell me why the following code would prevent excel 2010 from doing a 'file->save as'?

Private Sub AddEvents()
    'If xlApp Is Nothing Then SetApp
    Dim Cmd As Shape
    
    On Error Resume Next
    
    For Each Cmd In xlBook.Sheets("CES").Shapes
        ' Do a check so if it fails On Error send to the else statement
        Cmd.OnAction = "CESAddin.xlAppEvents." & Cmd.Name & "_Click"
        If Cmd.OnAction = "" Then
            Cmd.OnAction = "CESAddin.xlAppEvents.UnknownCMD_Click(""" & Cmd.Name & """)"
        End If
    Next Cmd
    On Error GoTo 0
    SetApp
End Sub

The code was written ny someone else not me.

Thanks

[royUK]

Don't have an On error resume next in code that you haven't finished checking, otherwise you won't receive error messages that may help.

I can't see any SaveAs in the code

[sconly]

Turns out it wasn't anything to do with that code.

It something to do with one line of code and I don't understand why...

Cancel = True

If i comment that line out it work, uncomment it it doesn't work.

Why would that little line of code prevent 'sav as'?