Someone

Sub MarkPeakQ()

PeakOvalWidth = 36    ' Size in pts for oval around peak Q
PeakOvalHeight = 60

PeakQOvalObj.Visible = False
PeakHour = Range("PeakHour")
PeakAveQ = Range("PeakAveQ")
AveInterval = Range("AveInterval")
CGStartDay = Range("CGStartDay")
' Getting Error Here
@@ If PeakHour < CGStartDay Or PeakHour >= CGStartDay + 8 Then Exit Sub
FlowChart.Activate
j = ActiveChart.Axes(xlValue).MaximumScale
With ActiveChart.PlotArea
  LeftPos = (PeakHour + AveInterval / 1440 - CGStartDay) / 8 _
             * .InsideWidth + .InsideLeft - PeakOvalWidth / 2
  TopPos = (1 - PeakAveQ / j) * .InsideHeight + .InsideTop _
            - PeakOvalHeight / 2
  If TopPos < .InsideTop Then TopPos = .InsideTop
  If TopPos > .InsideTop + .InsideHeight - PeakOvalHeight Then _
     TopPos = .InsideTop + .InsideHeight - PeakOvalHeight
  End With
With PeakQOvalObj
  .Visible = True
  .Left = LeftPos
  .Top = TopPos
  .Width = PeakOvalWidth
  .Height = PeakOvalHeight
  End With

End Sub