updating all fields in a column in excel table

[dpaton05]

I have inserted an excel table into my spreadsheet and I need to be able to update all rows of the table in column M with a 1 if a checkbox isn't selected and a 1.1 if it is selected. The table starts in column A and it is called npss_quote. The checkbox is called chkincrease. Can someone please help me with the vba?

 

[Peter_SSs]

I'm assuming that is an ActiveX Controls CheckBox. Does this do what you want?

Private Sub chkincrease_Click()
  ActiveSheet.ListObjects("npss_quote").DataBodyRange.Columns(13).Value = 1 - 0.1 * ActiveSheet.chkincrease.Value
End Sub

 

[dpaton05]

That works Peter, thank you.

 

[Peter_SSs]

That works Peter, thank you.

You're welcome. Thanks for the confirmation.