vonzuben, quando formular suas duvidas procure colocar mais detalhes para que possamos dar uma resposta mais precisa e não ficarmos por suposição, e o Titulo ser mais intuitivo.

Não sei se compreendi direito, mas veja se seria isso.

    Dim MyArray() As Variant
    Dim i As Long
    
    If Not Intersect(Target, Range("B" & Linha)) Is Nothing Then
    
        MyArray = Array("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", "Set", "Out", "Nov", "Dez")
        
        For i = LBound(MyArray) To UBound(MyArray)
            With Worksheets(MyArray(i))
                .Range("F" & Linha) = ""
            End With
        Next i
    End If

[]s
Mauro Coutinho
Administrador

Funcionou !
Só um detalhe, quando clico nas abas fica ,ou melhor, carregando por de alguns segundos

Por causa do For ?

vonzuben, como eu disse, quando vamos por suposição fica dificil dar uma resposta precisa, eu só indiquei uma forma de fazer um Array pelos nomes das Sheets.
Você usou o termo "Activate" mas na parte da rotina que indicou eu entendi e é o que ela faz, a verificação de quando digitamos em alguma celula da coluna "B" e não quando se Ativa (seleciona) a Aba, então, não sei o que dizer se não postar a rotina completa que montou e o que realmente pretende fazer, quanto a ficar carregando, tambem precisa-se saber onde colocou a rotina que dependendo ela faz o Loop nas abas definidas no Array toda vez que tiver alteração na coluna B.
Lembre-se sempre, você sabe o que quer, nós não conhecemos o seu projeto e as açoes realizadas.

Mauro Coutinho
[]s