Here is your code, unchanged except for my comments on possible problems.

I ran it on my system and in only generated a VBA error on the misspelling of Sheet3 in the WorkbookC subroutine.

About the newpathway string... if you are not changing the path to save the files in to a new location, why include it? and why use the SaveCopyAs method? As written, your code overwrites the existing files.

One other possibility could be a corrupted workbook.

HTH -Rich

Sub Proceed()

Dim newpathway As String

Application.ScreenUpdating = False

With Sheets("Sheet3")
    .Cells.Copy
    .Cells.PasteSpecial Paste:=xlValues
End With

On Error Resume Next
ActiveWorkbook.Names("Name1").Delete
ActiveWorkbook.Names("Name2").Delete
ActiveWorkbook.Names("Name3").Delete
On Error GoTo 0

newpathway = ThisWorkbook.Path 'NOT USED. DIMENSIONED FOR THIS SUBROUTINE ONLY

WorkbookB

Workbooks("WorkbookA.xlsm").Activate
newpathway = ThisWorkbook.Path 'AGAIN, NOT USED IN THIS SUBROUTINE

WorkbookC
Workbooks("WorkbookA.xlsm").Activate

On Error Resume Next
Application.DisplayAlerts = False
Sheets("Sheet5").Delete
On Error GoTo 0
Application.DisplayAlerts = True

MsgBox ("Please continue in the new workbooks")
Exit Sub ' PREVENTS THE LINE BELOW FROM EXECUTING

Application.ScreenUpdating = True

End Sub

Sub WorkbookB()

Dim excelfile As String
Dim newpathway As String 'NOT USED IN SUBROUTINE

excelfile = "WorkbookB.xlsm"
Workbooks.Open "C:\My Documents" & excelfile 'MISSING \

Workbooks("WorkbookA.xlsm").Activate
Sheets(Array("Sheet1", "Sheet3")).Copy After:=Workbooks("WorkbookB.xlsm").Sheets("Front Page")

Workbooks("WorkbookB.xlsm").Activate

Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:=newpathway & ActiveWorkbook.Name
ActiveWorkbook.Close
Application.DisplayAlerts = True

End Sub

Sub WorkbookC()

Dim excelfile As String
Dim newpathway As String

excelfile = "WorkbookC.xlsm"
Workbooks.Open "C:\My Documents\" & excelfile

Workbooks("WorkbookA.xlsm").Activate
Sheets(Array("Sheet2", "Sheets3", "Sheet4", "Information")).Copy After:=Workbooks("WorkbookC.xlsm").Sheets("Front Page") 'POSSIBLE MISSPELLING OF "Sheet3"?

Workbooks("WorkbookC.xlsm").Activate

Application.DisplayAlerts = False
ActiveWorkbook.SaveCopyAs Filename:=newpathway & ActiveWorkbook.Name 'newpathway = NOTHING, NEVER ASSIGNED A VALUE
ActiveWorkbook.Close
Application.DisplayAlerts = True

End Sub