Splitting tabs and safe in several separate workbook does not wo

Me again,

I am trying to create a VBA for automatically saving the file I am working on into several workbooks while keeping the original. However, when I do that, the main file always closes and I never get past the first new file.

In case it is of use, here are the macros:

Sub SAVE_CALUM_FILES()

'SAVE CALUM FILES'
ActiveWorkbook.SaveCopyAs "\\galbstorage\research\Research - PRIVATE\Data\Fixtures & Vessel Movements\US Whiteboard Reports\Calum Files.xls"


' Save a new file in the specified location

Dim FilePath As String
FilePath = "\\galbstorage\research\Research - PRIVATE\Data\Fixtures & Vessel Movements\US Whiteboard Reports\Calum Files"

Dim FileName As String
FileName = "IG Crude & Fuel Tracker - " & Format(Date, "ddmmyyyy") ' create the file name
ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FileName, FileFormat:=xlOpenXMLWorkbook


Application.DisplayAlerts = False ' turn off pop up windows

For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "CRD" And ws.Name <> "FO" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True ' turn on pop ups windows
End Sub


Sub SAVE_ECMex_FILES()

'SAVE ECMex FILES'
Workbooks("US Whiteboard Reports - Master").Activate
' Save a new file in the specified location

Dim FilePath As String
FilePath = "\\galbstorage\research\Research - PRIVATE\Data\Fixtures & Vessel Movements\US Whiteboard Reports\ECMex Files"

Dim FileName As String
FileName = "IG Crude & Fuel Tracker ECMex - " & Format(Date, "ddmmyyyy") ' create the file name
ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FileName, FileFormat:=xlOpenXMLWorkbook


Application.DisplayAlerts = False ' turn off pop up windows

For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "CRD ECMex" And ws.Name <> "FO ECMex" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True ' turn on pop ups windows
End Sub


Sub SAVE_Afra_BP_FILES()

'SAVE Afra BP FILES'
Workbooks("US Whiteboard Reports - Master").Activate

' Save a new file in the specified location

Dim FilePath As String
FilePath = "\\galbstorage\research\Research - PRIVATE\Data\Fixtures & Vessel Movements\US Whiteboard Reports\Afra BP Files"

Dim FileName As String
FileName = "Afra USG TA - " & Format(Date, "ddmmyyyy") ' create the file name
ActiveWorkbook.SaveAs FileName:=FilePath & "\" & FileName, FileFormat:=xlOpenXMLWorkbook


Application.DisplayAlerts = False ' turn off pop up windows

For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Afra USG TA" Then
ws.Delete
End If
Next ws
Application.DisplayAlerts = True ' turn on pop ups windows
End Sub



Thanks very much for your help!!

Brgds,
Annika