Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Sticky_Selection()
- Dim s As Range
- Set s = Selection
- Sub DupsRed()
- Application.ScreenUpdating = False
- Rng = Selection.Rows.Count
- For i = Rng To 1 Step -1
- myCheck = ActiveCell
- ActiveCell.Offset(1, 0).Select
- For j = 1 To i
- If ActiveCell = myCheck Then
- Selection.Font.Bold = True
- Selection.Font.ColorIndex = 3
- End If
- ActiveCell.Offset(1, 0).Select
- Next j
- ActiveCell.Offset(-i, 0).Select
- Next i
- Application.ScreenUpdating = True
- End Sub
- s.Parent.Activate
- s.Select 'NOT Activate - possibly more than one cell!
- End Sub
Add Comment
Please, Sign In to add comment