rename active sheet without specifiying name

[y2k]

is it possible to write some VBA that will just rename the active sheet? I've tried

    Sheets(ActiveSheet).Name = "my_new_name"

but that didn't work. I'm sure this is possible, I just don't use VBA that often, so what I do learn, I end up forgetting!!!

Thanks in advance

 

[Andrew Poulsom]

It's:

ActiveSheet.Name = "my_new_name"

 

[y2k]

I knew it would be easy, thanks!!!!!

Much apprecaited

Regards
Martin

 

[bamaisgreat]

Andrew I have a very similar question..
When the code below copies to the destination folder the hyperlinks seem to be gone.. I need it to copy those also.

On Error Resume Next
Kill "H:\All\Material Prep Archive\(Public)Archive.xls"
On Error GoTo 0
On Error Resume Next
FileCopy Source:="H:\Burney Table\CUTTING FORMS (Protected by QC)\Archive\Master Archive.xls", Destination:= _
'"H:\All\Material Prep Archive\(Public)Archive.xls"

 

[Jonmo1]

Andrew I have a very similar question..
When the code below copies to the destination folder the hyperlinks seem to be gone.. I need it to copy those also.

How in the world is this similar to the original post?

I think you should make a new thread for this

 

[workin'stiff]

I realize this is an extremely old thread. But I'm trying to rename my sheet but a button click. The sheet name is a concat of string and range components. I keep getting a 1004 error - application-defined or object-defined error. For the life of me, I can't figure this one out.

Private Sub updateWorksheetName_Click()

   ActiveSheet.Name = "Flight " & ActiveSheet.Range("FlightNumber") & " - Check Number " & ActiveSheet.Range("PerformancCheckNumber")
   worksheetName.Caption = ActiveSheet.Name
    
End Sub

 

[workin'stiff]

And the error is occurring on the first line sub...

 

[j_harr]

ActiveSheet.Range("PerformancCheckNumber")

This is just a guess but is your range actually named PerformanceCheckNumber or is PerformancCheckNumber correct?