When extracting data from an external source, the following message
appears when the spreadsheet opens:

"Microsoft Excel cannot refresh a Pivot Table until refresh of the
external data range on which the Pivot Table is based is complete."

Hitting the "OK" gets past the warning and the spreadsheet functions
normally. Is there any way to suppress the warning so the user does not
need to hit the "OK"?

Thanks for your help.

try Application.DisplayAlerts = False

-----Original Message-----
When extracting data from an external source, the
following message
appears when the spreadsheet opens:

"Microsoft Excel cannot refresh a Pivot Table until
refresh of the
external data range on which the Pivot Table is based is
complete."

Hitting the "OK" gets past the warning and the
spreadsheet functions
normally. Is there any way to suppress the warning so
the user does not
need to hit the "OK"?

Thanks for your help.
.

Thanks for the suggestion but the message still appears on Open. Maybe I'm
not associating the Application.DisplayAlerts at the right place. I
associated it with the workbook Open. Is that the right association?

Thanks.
wrote in message
...
try Application.DisplayAlerts = False

-----Original Message-----
When extracting data from an external source, the
following message
appears when the spreadsheet opens:

"Microsoft Excel cannot refresh a Pivot Table until
refresh of the
external data range on which the Pivot Table is based is
complete."

Hitting the "OK" gets past the warning and the
spreadsheet functions
normally. Is there any way to suppress the warning so
the user does not
need to hit the "OK"?

Thanks for your help.
.

I replied to this yesterday don't no longer see my reply - apologies if this
is duplicated.

Thanks for the suggestion below. I tried it but the same message appears.
I associated it with the Workbook Open. Was that the correct association?

Thanks

Bill
wrote in message
...
try Application.DisplayAlerts = False

-----Original Message-----
When extracting data from an external source, the
following message
appears when the spreadsheet opens:

"Microsoft Excel cannot refresh a Pivot Table until
refresh of the
external data range on which the Pivot Table is based is
complete."

Hitting the "OK" gets past the warning and the
spreadsheet functions
normally. Is there any way to suppress the warning so
the user does not
need to hit the "OK"?

Thanks for your help.
.

Thanks for the suggestion. I tried it and had the same message presented.
I put the Application.DisplayAlerts=False on Workbook Open. If there is
another association I should be using......

Thanks

Bill
wrote in message
...
try Application.DisplayAlerts = False

-----Original Message-----
When extracting data from an external source, the
following message
appears when the spreadsheet opens:

"Microsoft Excel cannot refresh a Pivot Table until
refresh of the
external data range on which the Pivot Table is based is
complete."

Hitting the "OK" gets past the warning and the
spreadsheet functions
normally. Is there any way to suppress the warning so
the user does not
need to hit the "OK"?

Thanks for your help.
.

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).
--
Toby Erkson
Oregon, USA
Excel 2002 in Windows XP

"Bill G" wrote in message
news:Keu1d.189663$mD.106356@attbi_s02...
When extracting data from an external source, the following message
appears when the spreadsheet opens:

"Microsoft Excel cannot refresh a Pivot Table until refresh of the
external data range on which the Pivot Table is based is complete."

Hitting the "OK" gets past the warning and the spreadsheet functions
normally. Is there any way to suppress the warning so the user does not
need to hit the "OK"?

Thanks for your help.

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).

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).

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).

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).

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).

Toby,

I tried your suggestion and it worked perfectly - thanks, i.e after I
removed the End If :). 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).

Toby,

I tried your suggestion and it worked perfectly - thanks, i.e after I
removed the End If :). 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).