Hi P45cal, i cannot post the workbook for Data protection act reasons, The work flow is like this, the Cells are originally selected manually by a user, then the useform is started, the checkboxes are used to activate the macro

I test all macros without userform first to prove the macro. what happens my end when testing like this is I manually select the cells as shown in my images, i run your code without the two extra codes and the function performs just as i asked, however, when i turn on the two extra codes, it separates the selection from a range to individual selections, not going back to the originally selected cells.

below i show the images of the result when testing with out the userform.

First test without comments

Sub blah()
'Set originalActiveCell = ActiveCell
Set newSelection = ActiveCell
For Each are In Selection.Areas
  Set newSelection = Union(newSelection, are, are.offset(1))
Next are
newSelection.Select
'originalActiveCell.Activate
End Sub
result

Activecell = top selection
Top selection.jpg

Sub blah()
Set originalActiveCell = ActiveCell
Set newSelection = ActiveCell
For Each are In Selection.Areas
  Set newSelection = Union(newSelection, are, are.offset(1))
Next are
newSelection.Select
originalActiveCell.Activate
End Sub
Activecell = Bottom selection
Btm Selection.jpg