I wrote the following code and i cant get the end result in the cell G37 & G38.

So if you anyone can see what i did wrong it would be really great.

Andy

Private Sub Tax()
Dim StateTax As Range
Dim CountyTax As Range
Dim VM As Range
Dim OP As Range
Dim VC As Variant
Dim VS As Variant
Dim OC As Variant
Dim OS As Variant
Dim TST As Variant
Dim TCT As Variant


Set StateTax = Worksheets("BID RECAP SUMMARY").Range("E37")
Set CoutyTax = Worksheets("BID RECAP SUMMARY").Range("E38")
Set VM = Worksheets("BID RECAP SUMMARY").Range("I18")
Set OP = Worksheets("BID RECAP SUMMARY").Range("I33")

Select Case CheckBox40.Value
Case Is = True
VS = StateTax * VM
VC = CountyTax * VM
Case Is = False
VS = 0
VC = 0
End Select

Select Case CheckBox38.Value
Case Is = True
OS = StateTax * OP
OC = CountyTax * OP
Case Is = False
OS = 0
OC = 0
End Select

TST = VS + OS
TCT = VC + OC

Worksheets("BID RECAP SUMMARY").Range("g37").Value = TST
Worksheets("BID RECAP SUMMARY").Range("g38").Value = TCT

END SUB