Carlo
   The only solution I can see is to use VBA.  Perhaps someone else can
come up with a formula solution.
   Using VBA to come up with the range, the question becomes:  How do you
want to use this range once VBA comes up with it?  For instance, do you want
VBA to name the range (with a worksheet name) so that you can use that name
in some formula?
   Another point that needs to be resolved before a VBA solution can be
developed is:  Are the values in Column A derived from formulas in the
Column A cells or are those values entered manually?
The following macro will do what you want.  This macro is written with the
assumptions that:
The range of the Boolean values is A1:A6.
The cells you want to refer to are in the range B1:B6.
The values in A1:A6 are entered manually (not by formulas).
The worksheet name you want to assign to the Column B range of
non-contiguous cells is "TheName".
IMPORTANT:  The name "TheName" will be deleted by this macro if none of the
Column A values is TRUE.  This will effect any formulas you have in the file
that refer to that name.
Note that this macro is a sheet macro and MUST be placed in the sheet module
of the sheet that has the values in question.  To access that module,
right-click on the sheet tab, select View Code, and paste this macro into
that module.  "X" out of the module to return to your sheet.  HTH   Otto
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Count > 1 Then Exit Sub
   If IsEmpty(Target.Value) Then Exit Sub
   Dim TheRng As Range
   Dim Temp As Range
   Dim i As Range
   If Not Intersect(Target, Range("A1:A6")) Is Nothing Then
       Set TheRng = Nothing
       For Each i In Range("A1:A6")
           If i.Value = True Then
               If TheRng Is Nothing Then
                   Set TheRng = i.Offset(, 1)
               Else
                   Set TheRng = Union(TheRng, i.Offset(, 1))
               End If
           End If
       Next i
       If TheRng Is Nothing Then
           On Error Resume Next
           Set Temp = Range("TheName")
           If Err.Number = 0 Then
               ActiveWorkbook.Names("TheName").Delete
           Else
               Err.Clear
           End If
           On Error GoTo 0
       Else
           TheRng.Name = "TheName"
       End If
   End If
End Sub

Hi

For cases like this (and for a lot of cases slightly different) I use next
approach.

Let's have a sheet List0 with a table like your example with fruits (data
start from A1:B1). Add a column to left of it - so that your data start now
from B1:C1.

A1=IF(AND($C1<>"",$B1),COUNTIF($B$1:$B1,TRUE),"")
Copy A1 down for any number of rows you like.

Define a named range List0
=OFFSET(List0!$A$1,,,COUNTA(List0!$C:$C),3)

Create another sheet - List
A1=IF(ISERROR(VLOOKUP(ROW(),List0,3,0)),"",VLOOKUP(ROW(),List0,3,0))
Copy A1 down - again for any number of rows you like. You get a list of
fruits from List0 for which value in column B was true - and without any
gaps.

Define a named range List
=OFFSET(List!$A$1,,,COUNTIF(List!$A:$A,">"""),1)
You may now set the sheet List to be hidden or very hidden - no need for it
to be visible.
In other formulas, refer to named range List.

Arvi Laanemets