Add New Sheet,named based on cell value VBA problem and "smoother" code

[herukuncahyono]

hello,
I have a problem with VBA code to copy new sheet named based on cell value
main sheet= sheet 1.. sheet source= sheet 2 .. new sheet= cell A1 value
1. if the same name or in cell a1 has not changed ,cause error ..

If Range("a1").Value = "" Then Exit Sub
Sheets("sheet2").Visible = True
Worksheets("sheet2").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Range("a1").Value
Sheets("sheet2").Visible = False
Worksheets("sheet1").Activate

2. is there any similar code that can be run much smoother or faster..?

thanks for any help

[AlphaFrog]

    If Range("A1").Value = "" Then Exit Sub
    If Evaluate("ISREF('" & Range("A1").Value & "'!A1)") Then Exit Sub 'Test if worksheet name exists
    Application.ScreenUpdating = False
    Worksheets("Sheet2").Copy After:=Worksheets(Worksheets.Count)
    ActiveSheet.Name = Sheets("Sheet1").Range("A1").Value
    ActiveSheet.Visible = True
    Worksheets("Sheet1").Activate
    Application.ScreenUpdating = True

[herukuncahyono]

hi AlphaFrog,
the code running well..& look smoother
Thanks