From the sheet with a1 wihtout selections or copying

sub namesht()'
sheets("55555").name=range("a1").value
end sub

--
Don Guillett
SalesAid Software

"Knox" wrote in message
...
I simply want to copy a cell and paste it into the worksheet tab to name
the
sheet what is in the cell. When I record a macro, it just trys to select
the
same sheet I selected when recording the macro. I was wandering how to
get
the macro to select the current sheet. here is the recorded macro:

Range("A1").Select
Selection.Copy
Sheets("55555").Select
Sheets("55555").Name = "1 06"
Range("B11").Select
Application.CutCopyMode = False
Sheets("Sheet2").Select
End Sub

Thank You for your help!