Add/ Remove a specifc text string to a cell based on a checkbox

**Grilleman** · 12-18-2014, 03:19 PM

Hello -

Cell Ak6 in my worksheet is designed to capture free text entries. Users can input up to 300 characters. What I want to do is append the text string "Accessories Included" to cell AK6 when the user checks a checkbox in a user form. When the user unchecks the checkbox in the user form I want only the text string "Accessories included" to be removed from AK6 but not other text which may already reside in this cell. Below is the code I have so far but this merely adds the text string "Accessories included" to cell AK6 and overwrites anything that might already be resident in that cell. This code also does not remove "Accessories included" when the checkbox is unchecked.

Private Sub CheckBox17_Click()

'inserts "Accessories Included" in AK6 on sheet1
If CheckBox17.Value = True Then Range("AK6").Value = "Accessories included"

End Sub

Thanks!

**Arkadi** · 12-18-2014, 03:24 PM

Try this:

Private Sub CheckBox1_Click()
'inserts "Accessories Included" in AK6 on sheet1
If CheckBox17.Value = True Then Range("AK6").Value = Range("AK6").Value & " Accessories included"
If CheckBox17.Value = False Then Range("AK6").Value = Replace(Range("AK6").Value, " Accessories included", "")
End Sub