use vba/ macro to insert cell if find specific text/ sign

[senget]

I have a sheet with 1500 rows and columns from A to EZ, each cell contains the data are very diverse.
I want to use VBA to find each cell that has the sign "/" and if found "/" will add the letter "cm:" in front of the cell contents.
example:
cell contents "cigarettes/marlboro" to "cm:cigarettes/marlboro" or
cell contents "oral b/toothpaste/toothbrush" becomes "cmral b/toothpaste/toothbrush"

Any help is greatly appreciated
Thank you in advance

 

[Kenneth Hobson]

Sub Main()
  Dim i&, r As Range, c As Range
  i = Cells(Rows.Count, "A").End(xlUp).Row
  Set r = Range("A2", "EZ" & i)
  For Each c In r
    If InStr(c, "/") > 0 Then c.Value2 = "cm:" & c.Value2
  Next c
End Sub

 

[senget]

thanks sir, the code has been going well.
but my question is less complete, if the cell is in accordance (has had cm) to be ignored if it has any cm

Sub Main()
  Dim i&, r As Range, c As Range
  i = Cells(Rows.Count, "A").End(xlUp).Row
  Set r = Range("A2", "EZ" & i)
  For Each c In r
    If InStr(c, "/") > 0 Then c.Value2 = "cm:" & c.Value2
  Next c
End Sub

 

[Kenneth Hobson]

If InStr(c, "/") > 0 And _
      Left(c.Value2, 3) <> "cm:" _
      Then c.Value2 = "cm:" & c.Value2

 

[senget]

where i put the code sir?

like this?

Sub Main()
  Dim i&, r As Range, c As Range
  i = Cells(Rows.Count, "A").End(xlUp).Row
  Set r = Range("A2", "EZ" & i)
  For Each c In r
      If InStr(c, "/") > 0 And _
      Left(c.Value2, 3) <> "cm:" _
      Then c.Value2 = "cm:" & c.Value2
  Next c
End Sub

If InStr(c, "/") > 0 And _
      Left(c.Value2, 3) <> "cm:" _
      Then c.Value2 = "cm:" & c.Value2

 

[Kenneth Hobson]

Most would put it in a Module.