BOONER wrote:
I need a macro that will change the names of the sheets in a workbook equal
to a given cell in those sheets


sub userform_initialize()

dim x as long
For x = 1 to activeworkbook.sheets.count
activesheet.name = sheets(x).range("A").value
next x

end sub



--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200605/1