Visual Basic - error

este código funciona si la cantidad de archivo es 1 (uno) no puedo repetir el proceso porque me da un error 1024 error range....

Dim objExcel As Excel.Application

'Una variable de tipo Libro de Excel
Dim xLibro As Excel.Workbook
Dim Col As Integer, Fila As Integer

'creamos un nuevo objeto excel
Set objExcel = New Excel.Application

'Usamos el método open para abrir el archivo que está _
en el directorio del programa llamado archivo.xls
Set xLibro = objExcel.Workbooks.Open(lblarchivo.Caption)

'Hacemos el Excel Visible
objExcel.Visible = True


With xLibro
'
' ' Hacemos referencia a la Hoja
With .Sheets(1)
ActiveSheet.Protection.AllowEditRanges.Add Title:="Rango1", Range:=Range("B1:B22")
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True



End With
End With

'Eliminamos los objetos si ya no los usamos
Set objExcel = Nothing
Set xLibro = Nothing