trouble with Macro script for assigning all Items to a site

Below is the script of macro for assigning Items from 700 to 999 to multiple location/sites.

It works fine when I run it one by one but come up with error if try duplicate the script for multiple sites.

the error is "line # 15      window not active "

Can somebody throw some light on this.

Cheers

Rahul

# DEXVERSION=11.00.0218.000 2 2
CheckActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Setup'
  TypeTo field 'Location Code' , '2'
  MoveTo field 'Location Description'
  MoveTo field 'Assign Button A'
  ClickHit field 'Assign Button A'
NewActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Apply_To'
  ClickHit field '(L) Item GB' item 1  # 'From:'
  MoveTo field '(L) Item Number Range Start'
  TypeTo field '(L) Item Number Range Start' , '700'
  MoveTo field '(L) Item Number Range End'
  TypeTo field '(L) Item Number Range End' , '999'
  MoveTo field '(L) Generic GB' item 0  # 'All'
  MoveTo field 'OK Button'
  ClickHit field 'OK Button'
NewActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Setup'
ActivateWindow dictionary 'default'  form 'Progress_Control' window 'Progress_Window'
NewActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Setup'
  MoveTo field 'Save Button'
  ClickHit field 'Save Button'

# DEXVERSION=11.00.0218.000 2 2
CheckActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Setup'
  TypeTo field 'Location Code' , '3'
  MoveTo field 'Location Description'
  MoveTo field 'Assign Button A'
  ClickHit field 'Assign Button A'
NewActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Apply_To'
  ClickHit field '(L) Item GB' item 1  # 'From:'
  MoveTo field '(L) Item Number Range Start'
  TypeTo field '(L) Item Number Range Start' , '700'
  MoveTo field '(L) Item Number Range End'
  TypeTo field '(L) Item Number Range End' , '999'
  MoveTo field '(L) Generic GB' item 0  # 'All'
  MoveTo field 'OK Button'
  ClickHit field 'OK Button'
NewActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Setup'
ActivateWindow dictionary 'default'  form 'Progress_Control' window 'Progress_Window'
NewActiveWin dictionary 'default'  form 'IV_Location_Setup' window 'IV_Location_Setup'
  MoveTo field 'Save Button'
  ClickHit field 'Save Button'