If you are only wanting to apply this to one cell at a time, then in yourfirst macro put, immediately following the "Private Sub... " lineIf Target.Count >1 then exit sub