Solved: New to VBA - Help me in making this code shorter and better

[vicks]

After opening the second file , i get the error on line [saying Run time error'-2147221080 (800401a8)
Automation errror]

wb.Sheets(1).Copy After:=ThisWb.Sheets(1)