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.