Code won't work in Excel 2003 in Citrix but does on desktop (Excel 2010)

Hi all,
I have a code that another member kindly put together for me. It works on my desktop (Excel 2010) but when I log on via Citrix and open Excel 2003. When I refresh the pivot table the dates change to US format so instead of 07/12/2016, 08/12/2016 & 09/12/2016 it changes to 12/07/2016, 12/08/2016 & 12/09/2016.

Sub AllWorksheetPivots()
    Const SUMMARY_PIVOT_DATASHEET As String = "Summary_pivot_data"
    Const PIVOT_SHEETS As String = "Camerons|Tadcaster|Hereford|Royal|Caledonian|Zoutewoude"
    
    Dim ws As Worksheet
    Dim cell As Range
    Dim pvt As PivotTable
    Dim pcell As PivotCell
    Dim pi As PivotItem
    Dim sheetList() As String
    Dim sheetName
    Dim x As Long, y As Long, rowNum As Long
    
    sheetList = Split(PIVOT_SHEETS, "|")
    
    ' either get or create sheet for summary data for the pivot table
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets(SUMMARY_PIVOT_DATASHEET)
    On Error GoTo 0
    If ws Is Nothing Then
        Set ws = ThisWorkbook.Sheets.Add(after:=ThisWorkbook.Sheets("Summary"))
        ws.Name = SUMMARY_PIVOT_DATASHEET
    End If
    
    ws.UsedRange.Clear
    ws.Range("A1:F1").Value2 = Array("Plan", "Location", "Week", "Date", "Vol", "Count")
    rowNum = 2
    For Each sheetName In sheetList
        For Each pvt In ThisWorkbook.Sheets(sheetName).PivotTables
            ' check for rows of actual data - every pivot has grand totals so will always have 1 row
            If pvt.DataBodyRange.Rows.Count > 1 Then
                For Each cell In pvt.DataBodyRange.Columns(1).Cells
                    Set pcell = cell.PivotCell
                    If pcell.RowItems.Count > 1 Then
                        For x = 1 To pcell.RowItems.Count
                            ws.Cells(rowNum, x + 2) = pcell.RowItems(x).Value
                        Next x
                        ws.Cells(rowNum, 1).Value2 = sheetName
                        ws.Cells(rowNum, 2).Value2 = pcell.ColumnItems(1).Value
                        ws.Cells(rowNum, 6).Value2 = cell.Value2
                        rowNum = rowNum + 1
                    End If
                Next cell
            End If
        Next pvt
    Next sheetName
    
    ws.Range("A1").CurrentRegion.Name = SUMMARY_PIVOT_DATASHEET
    Sheets("Summary").PivotTables("Summary_pivot").RefreshTable

End Sub

Is there was way to work around this?
Thanks in advance

I am afraid not, tried to format all cells that were affected but to no avail.

It's frustrating, it works beautifully on the desktop it's just through Citrix it doesn't!
The dates on the individual pivots tables are correct, it's just the summary data that is incorrect.

I suspect Citrix's session regional setting is what's causing this issue.

See link for how to set up Citrix.
https://support.citrix.com/article/CTX103288

Hi,
Tried changing the settings but they were all set to UK already. 'Changed' them and applied, logged off but still not working.

Also check Excel's language setting/format when accessing through Citrix, make sure it matching Windows.

Is there a way to do that other than from the Start Menu? There's no language settings option on the Microsoft Office Tools.

Hmm, you may be missing some components. Sorry, can't help you further as I don't have copy of Office/Excel 2003.

Thanks anyway. back to the drawing board for me, might be worth a call to my IT dept!
After the initial, turn it off and back on again instruction they may be helpful!