Selecting Cells Advanced

[Johnnydotcom]

Quick one both,

Unfortunately P45cal your

Set originalactivecell = Activecell

and

OriginalActivecell.activate

does not work

Jdelanos code

  ' keep a list of the cells the user had selected so they can be reselected
        preSelectedCells = preSelectedCells & cel.Address & ","
    Next cel
    
    ' move the trailing coma
    preSelectedCells = Left(preSelectedCells, Len(preSelectedCells) - 1)
    
    ' reselect the previously selected cells
    ActiveSheet.range(preSelectedCells).Select

Does work

i am using check boxes on a userform to activate the cells if i unselect all checkboxes i would like it to go back to the original selection?

[p45cal]

Unfortunately P45cal your

Set originalactivecell = Activecell

and

OriginalActivecell.activate

does not work

Well, I tested it here before posting.
Perhaps because

is manually selected by a user

isn't accurate?

i am using check boxes on a userform to activate the cells

Maybe attach a version of the workbook and userform. There are a number of reasons that part might not work.

[Johnnydotcom]

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