One of Multiple VBA Macros run dependant on DDD format cell

[Read_This]

I have two working VBA Macros, each running 58 Data Connections currently as:

"iTrackerDataRefresh5Fri"
and
"iTrackerDataRefresh6Sat"

(below is a sample of the data connections)

Left as-is it runs 408 data connections which takes time to complete.

So, I would like to get smart and 'just' use the macro I need - dependant on the day Formatted "DDD" in Cell B1

I have attempted an 'If' VBA macro to choose a macro based on the "DDD" below however, it doesn't work.

Your thoughts and suggestions would be appreciated

-------------------------------------------------------
Sub iTrackerDataRefreshChoice()
'
Application.ScreenUpdating = False
If Range("B1").Value = "Fri" Then
Application.Run "iTrackerDataRefresh5Fri"
End If
If Range("B1").Value = "Sat" Then
Application.Run "iTrackerDataRefresh6Sat"
End If
Application.ScreenUpdating = True
End Sub
-------------------------------------------------------

Sub iTrackerDataRefresh5Fri()
'
Application.ScreenUpdating = False
ActiveWorkbook.Connections("Connection237").Refresh
ActiveWorkbook.Connections("Connection238").Refresh
ActiveWorkbook.Connections("Connection239").Refresh
ActiveWorkbook.Connections("Connection240").Refresh
ActiveWorkbook.Connections("Connection241").Refresh
ActiveWorkbook.Connections("Connection242").Refresh
ActiveWorkbook.Connections("Connection243").Refresh
ActiveWorkbook.Connections("Connection244").Refresh
ActiveWorkbook.Connections("Connection245").Refresh
ActiveWorkbook.Connections("Connection246").Refresh
ActiveWorkbook.Connections("Connection247").Refresh
Application.ScreenUpdating = True
End Sub
-------------------------------------------------------

Sub iTrackerDataRefresh6Sat()
'
Application.ScreenUpdating = False
ActiveWorkbook.Connections("Connection296").Refresh
ActiveWorkbook.Connections("Connection297").Refresh
ActiveWorkbook.Connections("Connection298").Refresh
ActiveWorkbook.Connections("Connection299").Refresh
ActiveWorkbook.Connections("Connection300").Refresh
ActiveWorkbook.Connections("Connection301").Refresh
ActiveWorkbook.Connections("Connection302").Refresh
ActiveWorkbook.Connections("Connection303").Refresh
ActiveWorkbook.Connections("Connection304").Refresh
ActiveWorkbook.Connections("Connection305").Refresh
ActiveWorkbook.Connections("Connection306").Refresh
Application.ScreenUpdating = True
End Sub

 

[Read_This]

All sorted with self help thank you - very simple [now I know] I removed the numbers from the VBA naming.