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?