Need to rewrite code for 1 day (24hours) instead of 7 days (24hours)
If (TheDay = "Day 1") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"'Day 1'!A:M").CreatePivotTable TableDestination:="", TableName:= _
PTDay11, DefaultVersion:=xlPivotTableVersion10

If (TheDay = "Day 2") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData _
:="'Day 2'!A:M").CreatePivotTable TableDestination:="", TableName _
:=PTDay11, DefaultVersion:=xlPivotTableVersion10

If (TheDay = "Day 3") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData _
:="'Day 3'!A:M").CreatePivotTable TableDestination:="", TableName _
:=PTDay11, DefaultVersion:=xlPivotTableVersion10

If (TheDay = "Day 4") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, _
SourceData:="'Day 4'!A:M").CreatePivotTable TableDestination:="", _
TableName:=PTDay11, DefaultVersion:=xlPivotTableVersion10

If (TheDay = "Day 5") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData _
:="'Day 5'!A:M").CreatePivotTable TableDestination:="", TableName _
:=PTDay11, DefaultVersion:=xlPivotTableVersion10

If (TheDay = "Day 6") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData _
:="'Day 6'!A:M").CreatePivotTable TableDestination:="", TableName _
:=PTDay11, DefaultVersion:=xlPivotTableVersion10

If (TheDay = "Day 7") Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData _
:="'Day 7'!A:M").CreatePivotTable TableDestination:="", TableName _
:=PTDay11, DefaultVersion:=xlPivotTableVersion10