Stop The Moving Sheets

I have a macro that will open all the workbooks in a specified folder, regardless of the actual number of workbooks...All worked fine, until I tried to move a particular worksheet, from each wbk, into another specified wbk....The files open correctly, and copy / move the sheets correctly to the assigned wbk...but...it won't stop inserting sheets..it starts over and continues the process....?????


Option Explicit

Sub rbaOpenAll()
Dim x As Integer
Dim WB As String
Dim wbk As Workbook
For x = 1 To 100
WB = "G:ClaimsXtenTESTRBARBA " & x & ".xls"
On Error Resume Next
Set wbk = Workbooks.Open(Filename:=WB)
Worksheets("Current Rules - 1").Activate..............