Sub B_preparation_update()
Dim F As Worksheet
Application.DisplayAlerts = False
On Error Resume Next
Set F = Sheets("Fx")
On Error GoTo 0
If F Is Nothing Then
rep = MsgBox("FX does not exist, please follow the procedure step by step for updating.", _
vbOKOnly + vbExclamation + vbDefaultButton1, "WARNING !")
Exit Sub
End If
Sheets("FX").Delete
With Sheets("GMRB_Raw_Data")
.Cells.ClearContents
.Activate
.Range("A1").Select
End With
Application.DisplayAlerts = True
End Sub