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

keldo wrote:

I try to write a program to retrieve data from a database for each
worksheet, but fail :( , would you mind to help me what problems for
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
==================================

--
keldo
------------------------------------------------------------------------
keldo's Profile: http://www.excelforum.com/member.php...o&userid=13913
View this thread: http://www.excelforum.com/showthread...hreadid=270736

--

Dave Peterson