Have you got a generic update procedure that you call from each of the OptionButton click events? If so, you must be passing the Id, to that, you just pass that on to ApplyColour, but as the second parameter

Call ApplyColour(.Cells(ActiveCell.Row, "A").Resize(,5), Id)