Código VBA me crea problemas con archivo en red

Tengo un archivo Excel en red y cada vez que ejecuto este código que he incorporado y cierro el archivo al abrir el siguiente se me cuelga el Excel o salta la autorrecuperación, el archivo se creo con Excel 2003 y lo estoy modificando con Excel 2010.

El código es el siguiente (pega un rango de datos de una hoja, si esa existe, a otra hoja del libro), el nombre de la hoja es variable, la celda AB1 indica cuantas hojas hay, Hoja1, Hoja2,...:

Sheets("ENVIOS").Select
Range("H1:I10").Select
Selection.ClearContents
If Sheets("DATOS").Range("AB1") = "1" Then
Sheets("Grafik_1").Select
Range("AZ70").Select
Selection.Copy
Sheets("ENVIOS").Select
Range("H1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja_1").Select
Range("BA70:BB70").Select
Selection.Copy
Sheets("ENVIOS").Select
Range("I1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Else
' si hay 2 hojas
If Sheets("DATOS").Range("AB1") = "2" Then
...

No tendrías otro código que realizará la misma función pero que no me provocará problemas.