I have a VBA code to apply values from a UserForm to a Worksheet.  My code
inserts the Label Control Captino into the Cell.  How can I force the cell to
have an accounting format.

Private Sub cmbApplyTax_Click()

Dim mySalesTax As Range
Dim myRow As Long
Dim mySubTotal As Double, myFreight As Double

   'finds Sales Tax cell on the QUOTE sheet
   Set mySalesTax = Sheets("QUOTE").Columns("E:E").Find(What:="Sales Tax", _
                               After:=Cells(6, 5), _
                               LookIn:=xlValues, _
                               LookAt:=xlWhole, _
                               SearchOrder:=xlRows, _
                               SearchDirection:=xlNext, _
                               MatchCase:=False, _
                               SearchFormat:=False)

   Sheets("QUOTE").Unprotect "AdTech"
   
   'show tax exempt
   If optTaxExempt = True Then
       mySalesTax.Offset(0, 1).Value = "Tax Exempt"
   End If
   
   'adds 6% sales tax
   If optSalesTax6 = True Then
       mySalesTax.Offset(0, 1) = lblSalesTax6
       Range("F7:F8").NumberFormat = "Accounting" <==Error Error
   End If
   
   'adds 7% sales tax
   If optSalesTax7 = True Then
       mySalesTax.Offset(0, 1) = lblSalesTax7
       Range("F7:F8").NumberFormat = "Accounting" <==Error Error
   End If
       
   Sheets("QUOTE").Protect "AdTech"
   
   Unload Me

End Sub