Find and rename the cell using vba

[redvelvet]

Hello Guys,
I'm wondering why i could not rename column C.

Brand	Product Name	Part Number
Note	S1	20C0S0NG08

<colgroup><col><col><col></colgroup><tbody>
</tbody>

Here are the codes i used:
Cells.Replace What:="PartNumber", Replacement:="Product ID", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Please assist me. Thank you

 

[GTO]

There is no space in 'PartNumber' of What:=. At least as rendered in your post, 'Part Number' has either a space, a linefeed, or both.

 

[redvelvet]

Could you teach me how to fix it?
I tried many ways, but it is not workable..

 

[GTO]

Hi redvelvet,

Well, I hope I am not guessing too wildly, as I am going by what your post's rendering makes it appear to be. Let's do a simple test:

Select the cell that has "Part Number" in it. In a Standard Module, run:

Option Explicit
  
Sub GetChrVals()
Dim s As String, sText As String
Dim n As Long
  
  For n = 1 To Len(ActiveCell.Value)
    s = s & Asc(Mid$(ActiveCell.Value, n, 1)) & ", "
  Next
  
  Debug.Print s
  
End Sub

See what is in the Immediete Window. If there are no extra characters, and a linefeed is included, I get: 80, 97, 114, 116, 10, 78, 117, 109, 98, 101, 114,

I have not tried .Find with this yet, but I would assume we'd need to include the linefeed.


Mark

 

[Peter_SSs]

Not certain, but pretty sure it is just a linefeed so try this in you Replace line

What:="Part" & Chr(10) & "Number"