That can be shortened to:
If Me.CheckBox1 = True Then Set newSelection = ActiveCell For Each are In Selection.Areas Set newSelection = Union(newSelection, are, are.Offset(1)) Next are newSelection.Select End If
That can be shortened to:
If Me.CheckBox1 = True Then Set newSelection = ActiveCell For Each are In Selection.Areas Set newSelection = Union(newSelection, are, are.Offset(1)) Next are newSelection.Select End If
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.