walkergv

Function ShowMatch(Keyword As String, ByVal MyRange As Range) As String
    Dim Delimiter As String: Delimiter = "-"
    Dim Temp As String: Temp = ""
        For Each Row In MyRange.Rows
          For Each cell In Row.Cells
             If InStr(Keyword, cell) > 0 Then
                Temp = Temp + Delimiter + cell
             End If
          Next cell
        Next Row

walkergv

Function MakeModifiedBroadMatch(rng As Range, RemoveCommonWords As Boolean) As String
    Dim WordList() As String
    Dim CommonWords() As String: CommonWords = Split("how,do,i,with,in,a,to,the,for,is,of,and,are", ",")
    Dim i As Integer
    Dim x As Integer
    Dim ContainsCommonWord As Boolean
    Dim ModifiedBroadMatchKeyword As String
    
    
    WordList = Split(rng.Value)

walkergv

'Code for Upper Case

Sub UpperCase()
Dim objCell As Object
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next
End Sub

'Code for Lower Case