Excel 2007 : Is there an easier way to write the attached code:

If they all follow that naming convention then you can use:

Me.Controls(Replace(Replace(Activecell.Value, "Activation", ""), " ", "")).Value = True
Me.Controls(Replace(Activecell.Offset(0, 3).Value, " ", "")).Value = True