VB Snippet - Spell Check with Excel

VB Code:

Dim XlSpell As Object
 
Private Sub cmdSpell_Click()
 
    ' txtspell Holds String You Want Checked
 
    Set XlSpell = CreateObject("Excel.sheet")
 
    Set XlSpell = XlSpell.application.activeworkbook.activesheet
 
    XlSpell.Range("A1").Value = txtspell.Text
 
    XlSpell.CheckSpelling
 
    txtspell.Text = XlSpell.Range("A1").Value
 
    Set XlSpell = Nothing
 
    AppActivate Caption
 
End Sub

Add Reference to Excel Library...