Sub SearchNReplace2()
    Dim sFindInitial As String
    Dim sReplaceInitial As String
    Dim iLenInitial As Integer
    Dim sFindFinal As String
    Dim sReplaceFinal As String
    Dim iLenFinal As Integer
    Dim sTemp As String
    Dim rCell As Range

    sFindInitial = "="
    sReplaceInitial = "=CEILING("
    sFindFinal = "7"
    sReplaceFinal = "7,1)"

    For Each rCell In Selection
        sTemp = rCell.Value
        iLenInitial = Len(sFindInitial)
        iLenFinal = Len(sFindFinal)
        If Left(sTemp, iLenInitial) = sFindInitial And Right(sTemp, iLenFinal) = sFindFinal Then
            sTemp = Mid(sTemp, iLenInitial + 1)
            sTemp = Left(sTemp, Len(sTemp) - iLenFinal)
            sTemp = sReplaceInitial & sTemp & sReplaceFinal
            rCell.Value = sTemp
        End If
    Next
    Set rCell = Nothing
End Sub

Sub SearchNReplace1()
    Dim sFindInitial As String
    Dim sReplaceInitial As String
    Dim iLenInitial As Integer
    Dim sFindFinal As String
    Dim sReplaceFinal As String
    Dim iLenFinal As Integer
    Dim sTemp As String
    Dim rCell As Range

    For Each rCell In Selection
        sTemp = rCell.Value
        iLenInitial = Len("=")
        iLenFinal = Len("/7")
        If Left(sTemp, iLenInitial) = "=" And Right(sTemp, iLenFinal) = "/7" Then
            sTemp = Mid(sTemp, iLenInitial + 1)
            sTemp = Left(sTemp, Len(sTemp) - iLenFinal)
            sTemp = "=CEILING(" & sTemp & "/7,1)"
            rCell.Value = sTemp
        End If
    Next
    Set rCell = Nothing
End Sub

Sub SearchNReplace1()
    Dim CurrentCell As Range

    For Each CurrentCell In Selection
        CurrentCell.Value = "XXX"
    Next
End Sub