Find and Replace values in a selected Range

I have Excel 2013. I would like to use the code below but I need it to let me select the range instead of specifying it in the code, then pop up a form into which I can fill in what I want it to search and what I need it replaced with.

Sub ReplaceValues_()
 
    Dim c As Range
    
    For Each c In Range("B2", Cells(61, "ML")).SpecialCells(2, 1)
        If c < 5 Then c.Value = 0
    Next
    
End Sub

Could someone out there please help me out?