Help to update code from 2010 to 2013

I was and still am using this code from a 2010 workbook but I have made a new form using Excel H&B 2013 and code gets stuck.
Code gets stuck on .Pattern = xlNone
Any help would be appreciated

Sub SaveAs()
'
' SaveAs Macro
'

'
    Sheets("FORM").Select
    Sheets("FORM").Copy
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Button 4")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Button 3")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Button 2")).Select
    Selection.Delete
    ActiveSheet.Shapes.Range(Array("Button 5")).Select
    Selection.Delete
    Range("C2:O50").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Range("D2").Select
    Selection.Copy
    Range("D5:M42").Select
    Range("E5").Activate
    Selection.PasteSpecial Paste:=xlPasteValidation, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("J3:L3").Select
    Application.Dialogs(xlDialogSaveAs).Show
    End Sub

Thanks Norie all good
Thanks for the advice I will rename it