Function xyz()
Dim Category as Variant
Set Category = Sheets("Reports").Range("A4:A8")
End Function

MsgBox Category(0) =Category
MsgBox Category(1) =Global
MsgBox Category(2) =KAM
MsgBox Category(3) =Salesman
MsgBox Category(4) =External
MsgBox Category(5) =Admin