Hi,

Thank you for the reply. The checkbox already has code attached to it:

ws.Range("Pact1ActName").Cells(Me.SelectAct1.ListIndex + 1, 1).Offset(0, 8) = Me.Comp11.Value
In order to return a value onto a range within a sheet.

Is there a way to add your code to it? I'm new to vba and can't work it out?

Thanks in advance.