Deu certo com essas alterações, obrigada!!! Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Value = "F" Then Ac...

Skuden, obrigada pela resposta... Testei e não deu certo, pq há espaços entre os "F", eles são colocados quando os funcionários faltam, essa...