Sub SpellCheck()

      ' Dimension variable x as Object type
      Dim x as Object
      ' Group select Sheet1, Sheet2, and Sheet3 worksheets.
      ' Note that there are other methods for selecting multiple sheets.
      Sheets(Array("sheet1", "sheet2", "sheet3")).Select

      ' Perform spell check on each selected sheet.
      ' Note that the Change All button will only change
      ' words on one worksheet, but the spell checker dialog
      ' will appear once for each sheet selected.
      For Each x In ActiveWindow.SelectedSheets
         x.CheckSpelling CustomDictionary:="CUSTOM.DIC", _
            IgnoreUpperCase:=False, AlwaysSuggest:=True
      Next x

   End Sub
				

 Sub XL_SpellChk()
      ' Dimension variables
      Dim xl As Object, n As Integer, wksheet()
      ' Dimension wksheet variable as array with 3 elements
      ReDim wksheet(3)
      ' Assign worksheet you want to spell check
      ' as elements of wksheet array
      wksheet(1) = "sheet1"
      wksheet(2) = "sheet2"
      wksheet(3) = "sheet3"

      ' Activate Microsoft Excel and assign to variable xl
      Set xl = GetObject(, "Excel.Application.5")

      For n = 1 To 3
         ' Display Spell Checker dialog, once for each sheetname in array
         xl.Sheets(wksheet(n)).CheckSpelling "CUSTOM.DIC", False, True
      Next n

      Set xl = Nothing
   End Sub