Activate sheet copy and paste using cell

[Ztcollins]

Sub Copyrenameworksheet()

Dim ws As Worksheet
Set wh = Worksheets(ActiveSheet.Name)
Worksheets("Sheet7").Activate
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
If wh.Range("U2").Value "" Then
ActiveSheet.Name = wh.Range("U2").Value
End If
wh.Activate
End Sub

This Macro is set on a Form Controls Button on the Standings Page of the Workboook. The"Sheet7" which is the rootname for the "Default Points Page" i am trying to copy, move to end, and rename it from the cell U2 on that copied sheet.


I have researched this and i am just having a huge brain block on figuring this one out.

If wh.Range("U2").Value "" Then

This is the syntax error i am getting.

Please and thanks for the help in advance.

 

[Ztcollins]

Its always the name of the race track we ran in the csv file

 

[Fluff]

Yes but what is the value that is there currently?

 

[Ztcollins]

='DEFAULT POINTS PAGE'!U2

which is return the value of

Circuit of the Americas - Grand Prix

 

[Fluff]

Right that is too long, a sheet name can only be 31 characters in length.

 

[Ztcollins]

testing that brb

 

[Ztcollins]

Still doesnt work even just plain out typed a word in U2 on standing page

 

[Fluff]

In what way doesn't it work?

 

[Ztcollins]

Still not renaming

 

[Fluff]

Is the value for the sheet in U2 on the "Default Points Page" sheet? If so make sure that it's no longer than 31 characters.

 

[Ztcollins]

Sub Copyrenameworksheet()

Dim wks As Worksheet
Set wks = ActiveSheet
Worksheets("Default Points Page").Activate
ActiveSheet.Copy After:=Worksheets(Sheets.Count)
Worksheets("Default Points Page (2)").Activate
ActiveSheet.Name = wks.Range("U2").Value
wks.Activate
End Sub

Thanks for all the help. The if statement was screwing it up so i just eliminated it. and it worked.