title: VBA Spell check specific cells in Excel
body: <p>I'm using a macro to, among other things, spell check an invoice I've created in Excel before I save it.  Currently, it spell checks the entire workbook.  I'd like to spell check only certian cells of a specific sheet  (because I don't want to spell check peoples names and addresses on the invoice).</p>
  
  <p>Specifically, I'd like to spell check only cells D15-D19 on sheet "Invoice"  and cell D38 on sheet "Safety Inspection"</p>
  
  <p>Can someone point me in the right direction?</p>
  
  <p>This is the VBA code that I'm currently using that I'd like to refine:</p>
  
  <pre><code>Option Explicit
  Sub SaveAsSafety()
   'Saves filename as value of A1 plus the current date
  
  
  Application.CommandBars("Tools").Controls("Spelling...").Execute
   'Invokes spell check
  
  Dim newFile As String, fName As String
   ' Don't use "/" in date, invalid syntax
  fName = Range("M9").Value
   'Change the date format to whatever you'd like, but make sure it's in quotes
  newFile = fName &amp; " - " &amp; Range("D10").Value &amp; " - " &amp; Range("D9")
   ' Change directory to suit your PC, including USER NAME
  
  Sheets(Array("Safety Inspection", "Invoice")).Select
  Sheets("Safety Inspection").Activate
  
  ChDir _
  "C:\Users\Brian\Google Drive\Buller Heating and Air\Invoices"
  ActiveWorkbook.SaveAs Filename:=newFile
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1").Value _
  , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
  :=False, OpenAfterPublish:=False
  
  End Sub
  </code></pre>