Hyperlink not working on Mac

[birchs92]

Dear All

The following code works fine on Windows 8/Excel 2007, but will not work on Mac computer

I am struggling to find a solution

The code takes the postcode elements from columns 30-31 of the selected row appends them to the URL and navigates to address

Thanks in advance
Simon

Public Sub Link()
    Dim Postcode As String
    Dim AreaDistrict As Integer
    Dim SectorUnit As Integer
    
    AreaDistrict = 30
    SectorUnit = 31
   
    Postcode = Cells(ActiveCell.Row, AreaDistrict) & " " & Cells(ActiveCell.Row, SectorUnit)
    
    Dim full As String
    Dim part1 As String
    Dim part2 As String
    
    part1 = "http://universe.geopostuk.com/cds/menuController.do?menu=depot_search#multiple/filterData=&premiumService=false&searchType=geo_advanced_search&searchSelects=&search-scope=C&postcode_collection_date_days=3&delivery_date_days=3&hub_date_days=3&account_collection_date_days=3&radioOptions=&advanced=postcode&advanced.postcode=postcode_collection_date&searchInputs=&postcode_radio=postcode&account_radio=account&container_label_radio=container_label&postcode="
    part2 = "&postcode_collection_date_radio=postcode_collection_date&delivery_date_radio=delivery_date&undefined=customer_ref&undefined=advanced_phone_number&undefined=advanced_email_address&postcode_collection_date=01/06/2015"
    
    'http://universe.geopostuk.com/cds/menuController.do?menu=depot_search#multiple/filterData=&premiumService=false&searchType=geo_advanced_search&searchSelects=&search-scope=C&postcode_collection_date_days=1&delivery_date_days=1&hub_date_days=1&account_collection_date_days=1&radioOptions=&advanced=postcode&advanced.postcode=postcode_collection_date&searchInputs=&postcode_radio=postcode&account_radio=account&container_label_radio=container_label&postcode=BS99 7AR&postcode_collection_date_radio=postcode_collection_date&delivery_date_radio=delivery_date&undefined=customer_ref&undefined=advanced_phone_number&undefined=advanced_email_address&postcode_collection_date=01/06/2015
    
    full = part1 & Postcode & part2
    
    ThisWorkbook.FollowHyperlink Address:=full, AddHistory:=False
End Sub