Hi,

Yeah just pass the name of the cell to a variable and then use that to
name the sheet, something like:

Dim ShtName as string
ShtName = Range("A5").value
Activesheet.name = ShtName

If you then wanted to name quite a few you could then just set a loop
hence the reason I used activesheet rather than sheets("name")

James