Would like Macro Adapted for Selected Cells and Ask for Character to be Used

[Alex20850]

This macro works, but I would like adapted in two ways:
1) Instead of hard coded d1:d1000, I would like to use selected cells
2) I would like to be asked for the character to use instead of the hard coded "m".

Sub RemoveAfter()


For Each c In Range("d1:d1000")
If InStr(c.Value, "m") > 0 Then
c.Value = Left(c.Value, InStr(c.Value, "m") - 1)
End If
If InStr(c.Value, "m") > 0 Then
c.Value = Left(c.Value, InStr(c.Value, "m") - 1)
End If
Next c


End Sub

 

[Fluff]

How about

Sub RemoveAfter()
   Dim Cl As Range
   Dim Srch As String
   
   Srch = InputBox("Please enter the value to be searched for")
   If Srch = "" Then Exit Sub
   For Each Cl In Selection
      If InStr(Cl.Value, Srch) > 0 Then
         Cl.Value = Left(Cl.Value, InStr(Cl.Value, Srch) - 1)
      End If
   Next Cl
End Sub

 

[Alex20850]

How about

Sub RemoveAfter()
   Dim Cl As Range
   Dim Srch As String
   
   Srch = InputBox("Please enter the value to be searched for")
   If Srch = "" Then Exit Sub
   For Each Cl In Selection
      If InStr(Cl.Value, Srch) > 0 Then
         Cl.Value = Left(Cl.Value, InStr(Cl.Value, Srch) - 1)
      End If
   Next Cl
End Sub

Works great. thanks!

 

[Fluff]

Glad to help & thanks for the feedback