Sub UpdateGraphs()
Application.ScreenUpdating = False
Sheets("Data").Select
[R1].Select
StartDate = ActiveCell.Value
MyStartDate = Format(StartDate, "m/d/yyyy")
[A1].Select
Do Until IsEmpty(ActiveCell.Value)
If ActiveCell.Text = MyStartDate Then
'Stop
MyStartRow =...