VBA funktion virker ikke men macro gør hvorfor?

Jeg skal bruge en Function i Excel så jeg kan retunere en(flere) værdi til mit ark, det er til optælling af mails i en mailbox med initialer.
Inbox'en er importeret via MS query og ligger i sheet(1)/("Inbox")
Koden der virker i en sub macro1 ser således ud:
[code]
Debug.Print "HaWoow!"

    ActiveWorkbook.Sheets(1).Select
    Range("Table_Query_from_W_PRS_Mail_in_1[[#Headers],[_70]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Set DatesRng = Selection
   
    Range("Table_Query_from_W_PRS_Mail_in_1[[#Headers],[_73]]").Select
    Range(Selection, Selection.End(xlDown)).Select
    Set SubjectRng = Selection


dtoday = Now

count = 1

Debug.Print "HaWoow!"
[/code]
Koden virker som sagt fint som sub men når den kommer i function så kommer den ikke videre end det første "hawoow!" men melder ikke debug fejl :-( Det skal siges jeg skal bruge funktionen i et andet sheet. Når jeg indsætter funktionen i Inbox sheet siger den cirkluær refference.
Jeg håber der er nogen der kan hjælpe er ved at blive tosset hehe

Jeg ved denne ligger mellem Excel/Programmering men jeg postede den i Excel