i want to type something in "B1" and then if it is in sheet 1,2,5 it will get delete and then adds the word "changed" the next cell to the right in "Column B"
Private Sub CommandButton2_Click()
For Each cell In Range(Cells(1, "A"), Cells(Cells(Rows.Count, "A").End(xlUp).Row, "A"))...