name sheet with cell value

[khickey]

Does anyone know how to rename a sheet using the value of a cell in another sheet using VBA?

Thanks in advance

[lukec]

Is this what you where looking for?:
Dim NewSheetNameFromCell As String

Sheets("Sheet1").Select
NewSheetNameFromCell = Cells(1, 1).Value
Sheets("Sheet2").Select
ActiveSheet.Name = NewSheetNameFromCell
________________________________________
Where Cells(1, 1) is (row 1, column A)

Luke

[Eddie G.]

this works where a1 on sheet 2 is where your name is:

Sub NAMER()
Sheets("SHEET1").Name = Sheets_("SHEET2").Range("A1").Value
End Sub

[khickey]

Thanks guys, that worked a treat!!!!!