substitute

With VBA

For Each cell In Range("B2:G22")
If cell.Value = "B" Then
cell.Value = Cells(cell.Row,"A").Value
End If
Next cell

--
HTH

Bob Phillips

"AMK" <[email protected]> wrote in message
news:[email protected]...
> How can I substitute each instance of "B" in a range (B4..g22) with the
value
> in
> Column A same row as the Corresponding "B". Not all cell in range have the
"B"
>
> Al

How can I substitute each instance of "B" in a range (B4..g22) with the value
in
Column A same row as the Corresponding "B". Not all cell in range have the "B"

Al

With VBA

For Each cell In Range("B2:G22")
If cell.Value = "B" Then
cell.Value = Cells(cell.Row,"A").Value
End If
Next cell

--
HTH

Bob Phillips

"AMK" <[email protected]> wrote in message
news:[email protected]...
> How can I substitute each instance of "B" in a range (B4..g22) with the
value
> in
> Column A same row as the Corresponding "B". Not all cell in range have the
"B"
>
> Al