selectRangeWithMouse_bold

'**************************************************************
' Select a Range with your mouse then bolds them
'    NOTE: Can change from bold to something else
'***********************************************************


Sub RangeDataType()

Dim rRange As Range



    On Error Resume Next

        Application.DisplayAlerts = False

            Set rRange = Application.InputBox(Prompt:= _
                "Please select a range with your Mouse to be bolded.", _
                    Title:="SPECIFY RANGE", Type:=8)

    On Error GoTo 0

        Application.DisplayAlerts = True



        If rRange Is Nothing Then

            Exit Sub

        Else

            rRange.Font.Bold = True

        End If



End Sub