Macro Help

[john62290]

Hey, I am trying to create a macro that will remove numbers in one column from different sheets but leave the text that is in there. It will be six different sheets and the total numbers in the columns fluctuate throughout the day. I need a way for it to clear the data without clearing the text. I have gotten something but it clears the text as well. Thank you for your help!

 

[Logit]

Sub RemoveNumbersFromColumnB()
  Dim X As Long, R As Long, Data As Variant
  Data = Range("B1", Cells(Rows.Count, "B").End(xlUp))
  For R = 1 To UBound(Data)
    For X = 1 To Len(Data(R, 1))
      If Mid(Data(R, 1), X, 1) Like "[0-9]" Then Mid(Data(R, 1), X) = Chr(1)
    Next
    Data(R, 1) = Application.Trim(Replace(Data(R, 1), Chr(1), ""))
  Next
  Range("B1").Resize(UBound(Data)) = Data
End Sub

VBA - Remove numbers from column

 

[john62290]

Sub RemoveNumbersFromColumnB()
  Dim X As Long, R As Long, Data As Variant
  Data = Range("B1", Cells(Rows.Count, "B").End(xlUp))
  For R = 1 To UBound(Data)
    For X = 1 To Len(Data(R, 1))
      If Mid(Data(R, 1), X, 1) Like "[0-9]" Then Mid(Data(R, 1), X) = Chr(1)
    Next
    Data(R, 1) = Application.Trim(Replace(Data(R, 1), Chr(1), ""))
  Next
  Range("B1").Resize(UBound(Data)) = Data
End Sub

VBA - Remove numbers from column

Hey, thanks for the quick response. This works but it does remove the text as well for me. 95-98% of the data is numbers so that is the format of column I. Would the data need to be in general or text format to not remove it?