Need to replace X in text with A through F

Hello Adammj58,

Here is another macro that uses Regular Expressions to find an replace the "X" with the letters you want. A button has been added to the attached workbook to run the macro.

Sub ReplaceX()

  Dim Data As Variant
  Dim N As Integer
  Dim RegExp As Object
  Dim Rng As Range
  Dim RngEnd As Range
  Dim X As Long
  
    Set Rng = Range("B2")
    Set RngEnd = Cells(Rows.Count, Rng.Column).End(xlUp)
    Set Rng = IIf(RngEnd.Row < Rng.Row, Rng, Range(Rng, RngEnd))
    
    Data = Array("A", "B", "C", "D", "E", "F")
    
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Pattern = "[xX]"
    
      For Each Cell In Rng
        If RegExp.Test(Cell.Text) Then
           N = X Mod 6
           Cell.Value = RegExp.Replace(Cell.Text, Data(N))
           X = X + 1
        End If
      Next Cell
     
    Set RegExp = Nothing
    
End Sub