set y= giver fel

Hej...

Med følgende vil jeg oprette to regions(eller hvad det fine ord nu er) y og z:


With Application
      Set WS1 = .InputBox("Marker overskrift af område 1(område med tagname i russiske tekster)", Type:=8)
      Set WS2 = .InputBox("Marker overskrift af område 2(område med tagname i engenske tekster)", Type:=8)
  End With

  Last1 = WS1.Cells(65536, 1).End(xlUp).Row
  Last2 = WS2.Cells(65536, 1).End(xlUp).Row
   
  Set y = Worksheets(WS1.Worksheet.name).Range(Cells(2, 1), Cells(Last1, 2))
  Set z = Worksheets(WS2.Worksheet.name).Range(Cells(2, 1), Cells(Last2, 3))
 

Hvorfor får jeg debug fejl på y når jeg har sheet(2) som activesheet og fejl på znår sheet(1) er active?

Plaese help

thanks
Thomas