Help on retrieve data in each worksheet

[keldo]

I try to write a program to retrieve data from a database for eac
worksheet, but fail , would you mind to help me what problems fo
the below codings?

=================================
Sub Macro1()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets

Range("A1", "AZ171").Select
Application.Run Macro:=("EssMenuRetrieve")
Range("A173", "AZ344").Select
Application.Run Macro:=("EssMenuRetrieve")

Next sh

End Sub
=================================

 

[Dave Peterson]

Without knowing what EssMenuRetrieve does, maybe...

Sub Macro1()

Dim sh As Worksheet

For Each sh In ThisWorkbook.Worksheets
sh.select
Range("A1", "AZ171").Select
Application.Run Macro:=("EssMenuRetrieve")
Range("A173", "AZ344").Select
Application.Run Macro:=("EssMenuRetrieve")
Next sh

End Sub