Bom dia a todos!
Estou escrevendo um código simples, mas está aparecendo o erro 1004 e não consigo resolver. Alguém pode me dar uma luz?
O erro aparece sempre nessa linha:
"strFormula = "=SEERRO(PROCV($A" & intLinhaMovProd & ";Tabela2;" & intColunaTabPreços & ";FALSO);0)"
Worksheets("Mov Prod").Cells(intLinhaMovProd, 2).Value = strFormula"
Desde já, agradeço a todos.
Abraço

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim intColunaTabPreços As Integer
    Dim intLinhaMovProd As Integer
    Dim strFormula As String
    
intColunaTabPreços = 1
intLinhaMovProd = 7
    
    'The variable KeyCells contains the cells that will cause an alert when they are changed.
    Set KeyCells = Range("E5:F5")
'Target = KeyCells

    
   If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        'Altera o Procv da coluna de preços para se adaptar a tabela de cada fornecedor
        'MsgBox "Cell " & Target.Address & " has changed."
        While Tab_Preços.Cells(1, intColunaTabPreços).Value <> Mov_Prod.Range("F5").Value
            intColunaTabPreços = intColunaTabPreços + 1
        Wend
        While Mov_Prod.Cells(intLinhaMovProd, 1).Value <> 0
        
            strFormula = "=SEERRO(PROCV($A" & intLinhaMovProd & ";Tabela2;" & intColunaTabPreços & ";FALSO);0)"
            Worksheets("Mov Prod").Cells(intLinhaMovProd, 2).Value = strFormula
            'Mov_Prod.Cells(intLinhaMovProd, 2).Value = strFormula
            intLinhaMovProd = intLinhaMovProd + 1
        Wend
            
    End If
End Sub