MACROS

Sub ReemplazarTextoV01()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

    ' Establece la hoja de trabajo activa
    Set ws = ThisWorkbook.Sheets("Backlog")
    Set rng = ws.Range("D1:D" & ws.Cells(ws.Rows.Count, "D").End(xlUp).Row)

    ' Reemplazar "V0#" por "Veracruz"
    For Each cell In rng
        If cell.Value Like "V0#" Then
            cell.Value = "Veracruz"
        End If
    Next cell
End Sub