Toggle between 2 values in a cell

[dpaton05]

I have a check box to increase a quote by 10%. The formula is multiplied by a cell that contains a 1 or 1.1, depending on whether the check box is selected. I have the following code that won't work, what is wrong with it and what is a more efficient way to write it?

Private Sub chkIncrease_Click()
    If ThisWorkbook.Worksheets("NPSS_quote_sheet").Cells(11, 13).Value = "1.1" Then
        ThisWorkbook.Worksheets("NPSS_quote_sheet").Cells(11, 13).Value = "1"
        Else
        ThisWorkbook.Worksheets("NPSS_quote_sheet").Cells(11, 13).Value = "1.1"
    End If
End Sub

Thanks,
Dave

 

[dpaton05]

Now I am trying to get just the first part of this code working and I get the error of application defined or object error.

Private Sub chkIncrease_Click()
    If chkIncrease.Value = "True" Then
        Range("M11").Value = "1.1"
    Else
        'Worksheets("NPSS_quote_sheet").Range("M11").Value = "1"
    End If
End Sub

Can someone help me debug this code please?

 

[dpaton05]

Got it working with this code:

If Worksheets("NPSS_quote_sheet").Range("M11").Value = "1.1" Then
        Worksheets("NPSS_quote_sheet").Range("M11").Value = "1"
    Else
        Worksheets("NPSS_quote_sheet").Range("M11").Value = "1.1"
    End If

 

[Peter_SSs]

Assuming M11 already contains either 1 or 1.2 you can also do it in a single line like this

Worksheets("NPSS_quote_sheet").Range("M11").Value = 2.1 - Worksheets("NPSS_quote_sheet").Range("M11").Value

.. or I would prefer

With Worksheets("NPSS_quote_sheet").Range("M11")
  .Value = 2.1 - .Value
End With

BTW, if you are putting numerical values into a cell, best not to enclose them in quote marks.