title: Vba Worksheet(1).Activate instruction: 408 Error (The object doesn't admit this property or mehtod)
body: <p>I have the following code to copy and paste values in another excel spreadsheet: </p>
  
  <pre><code>Sub createSpreadSheet()
  
  Set NewBook = Workbooks.Add
  szToday = Format(Date - 1, "YYYYMMDD")
      With NewBook
          .Title = "Informe_Control_Colaterales_ddmmaaaa"
          .Subject = "Informe_Control_Colaterales"
          .SaveAs Filename:="V:\Departamento\7920-SOLVENCIA\1. Riesgo de Mercado\2. RIESGO DE CONTRAPARTIDA\1. REPORTING DIARIO R.Contrapartida\1. Enviados\Informe_Control_Colaterales_" &amp; szToday &amp; ".xls"
      End With
  
  ThisWorkbook.Worksheets(1).Activate
  Range("H1", "K37").Select
  Selection.Copy
  NewBook.WorkSheets(1).Activate
  ActiveSheet.Name = "CSA y REPO Restrospectivoo"
  ActiveSheet.Range("A1").PasteSpecial xlPasteValues
  ActiveSheet.Range("A1").PasteSpecial xlPasteFormats
  Worksheets.Add(After:=Sheets(Worksheets.Count)).Name = "CSA y REPO Actual"
  ThisWorkbook.Worksheets(1).Activate
  Nows = "CSA y REPO Actual"
  Worksheets(Nows).Activate
  ActiveSheet.Cells.Select
  Selection.Copy
  NewBook.Sheets(2).Activate
  ActiveSheet.Range("A1").PasteSpecial xlPasteValues
  ActiveSheet.Range("A1").PasteSpecial xlPasteFormats
  NewBook.Sheets(1).Activate
  
  
  End Sub
  </code></pre>
  
  <p>When it executes the instruction <code>NewBook.WorkSheets(1).Activate</code> I get the error described in the title of this query. I've tried also to put <code>NewBook.Sheets(1).Activate</code>, but in that case the code execution simply ignore the instruction and doesn't activate "Newbook" and executes the rest of the code in "ThisWorkBook" wrongly.</p>
  
  <p>Could anyone help me?</p>
  
  <p>Thanks in advance</p>