Anyone have the syntax handy. I don't have help on my work computer. Tried following.
Sub NewPO()
Dim NewSheet As Worksheet
'Dim OldSheet As Worksheet
'Set OldSheet = Worksheets.Count
Sheets("1000").Copy After:=Sheets(1)
'Sheets("1000").Copy After:=Workbook.Worksheets.Count
Set NewSheet = ActiveSheet
'NewSheet.Move (After)OldSheet
NewSheet.Range("K1") = NewSheet.Range("K1").Value + 1
NewSheet.Name = Range("K1").Value
Sheets("1000").Range("K1") = NewSheet.Range("K1").Value
'ActiveSheet.Shapes("Button 1").Select
'Selection.Cut
ActiveSheet.Shapes("Button 1").Cut
End Sub
Sub NewPO()
Dim NewSheet As Worksheet
'Dim OldSheet As Worksheet
'Set OldSheet = Worksheets.Count
Sheets("1000").Copy After:=Sheets(1)
'Sheets("1000").Copy After:=Workbook.Worksheets.Count
Set NewSheet = ActiveSheet
'NewSheet.Move (After)OldSheet
NewSheet.Range("K1") = NewSheet.Range("K1").Value + 1
NewSheet.Name = Range("K1").Value
Sheets("1000").Range("K1") = NewSheet.Range("K1").Value
'ActiveSheet.Shapes("Button 1").Select
'Selection.Cut
ActiveSheet.Shapes("Button 1").Cut
End Sub