kode i CheckBox

Jeg har problemer med denne kode
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False
If CheckBox1.Value = True Then
  Sheets(\"beregnings tal\").Select
Select (\"B2\")
ActiveCell.FormulaR1C1 = \"j\"
  Sheets(\"vaskedata\").Select
ElseIf CheckBox1.Value = False Then
End If
Exit Sub
End Sub
Det jeg gerne ville var at når der flueben i Boxen så skal der indsættes et j i b2 på arket\" beregningstal\" og når der ikke er flueben i skal det slettes i B2 hvordan gør man det ? jeg ved godt min koder ikke  er færdig men jeg får fejl ved Select B2 alerede så jeg er ikke kommet længere