Hi, Will03,

just guessing:
'...
Set wbPresenceSystem = Workbooks.Open(Filename:="H:\BX-HR\BX-INDUSTRIAL RELATIONS\HR REPRESENTATIVES\PRIVATE\HRSSC\Brazil\Training Hours Macro\Presence System Bruto.xls")
If Not wbPresenceSystem Is Nothing Then
  Set wsSheet = wbPresenceSystem.Sheets("TPCC")
  Set wsTempActivos = wbTHMacro.Sheets("PS")
  wsSheet.Cells.Copy wsTempActivos.Range("A1")
  '...
  wbPresenceSystem.Close False
Else
  Exit Sub
End If
'...
Ciao,
Holger