Try something like this

dim aWS as worksheet
on error resume next
for each aWS in activeworkbook.worksheets
aws.name = aws.cells(1,1).value
next aws
on error goto 0

HTH,
Barb Reinhardt
"JEFF" wrote:

Hello,

I'd like to be able to rename my worksheet tabs based on the contents of a
cell within that worksheet (same cell in each worksheet).

Any suggestions? TIA