Para criar uma borda de célula piscando no VBA do Excel sem alterar o conteúdo da área de transferência, você pode seguir os seguintes passos:
Sub PiscarBorda() Dim Piscar As Integer Range("A1:A3").Select Piscar = 1 Do While Piscar < 6 With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = 3 .TintAndShade = 0 .Weight = xlThin End With Application.Wait (Now + TimeValue("0:00:01")) With Selection.Borders(xlEdgeTop) .LineStyle = xlNone End With Application.Wait (Now + TimeValue("0:00:01")) Piscar = Piscar + 1 Loop End Sub
Seguindo esses passos, você será capaz de criar uma borda de célula piscando no VBA do Excel sem alterar o conteúdo da área de transferência.