Hi
try something like the following:
sub foo()
dim wks as worksheet
for each wks in activeworkbook.worksheets
if lcase(left(wks.name,3))="buy" then
msgbox wks.range("A1").value
'your code
end if
next
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


SUNIL wrote:
how can a piece of code be run on every sheet whose name that begins
with "buy", in a particular workbook ?

Thanks in anticipation

Sunil