Toby,

I tried your suggestion and it worked perfectly - thanks. Just removed
the End If statement :). Thanks again.

Bill

Toby Erkson wrote:
I use this for my report automations:

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Sheets("SheetNameGoesHere").Select 'When refreshing the workbook a
worksheet, NOT A CHART, needs to be active (dunno why?)
ActiveWorkbook.RefreshAll
Application.DisplayAlerts = True
End If
End Sub

Make sure you are NOT on a Chart sheet when you execute the RefreshAll. When
this is executed ALL data sources will update (refresh).