Mikerickson,

Thanks for the great idea! Works perfect!

See below for the fix.

Sub Select_Range()
Dim FindRng As Range
    Dim c As Range
    Dim First As String
    Dim rng As Range
    Set FindRng = ActiveSheet.UsedRange
    With FindRng
        Set c = .Find(What:="$$", After:=FindRng.Cells(1, 1), LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
        If Not c Is Nothing Then
            First = c.Address
            On Error Resume Next
            Set rng = c
            Do
                Set rng = Range(rng, c)
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> First
        End If
        rng.Select
    End With
End Sub