title: Write to two cells at same time excel vba
body: <p>I need to write the same data into two different range of cells for a VBA application that I am writing.  I could of course just loop through twice and write the data, but I was hoping to do it in one pass.  </p>
  
  <p>This is an example of what I am doing (lot of complexity removed).</p>
  
  <pre><code>Sub WriteData()
      WriteOutDivision "Division1",10 
      WriteOutDivision "Division1",20 
  End Sub
  
  Private Sub WriteOutDivision(ByVal divisionName, ByVal rowNumber)
      Dim curSheet As Worksheet
  
      Set curSheet = Sheets("Company Scorecard")    
  
      With curSheet.Cells(rowNumber, 1)
           .value = divisionName
           .Font.Bold = True
           .InsertIndent 1
      End With
  End Sub
  </code></pre>
  
  <p>Is there something that I can do to write to both row 10 column 1 and row 20 column 1 at the same time?</p>