Jag försöker få till det med att VB skall hämta in värdet frå¨n cellen A1 och ge det till den kopierade bladet i excel

Sub kopia2()
'
' kopia2 Makro
''
    Sheets("Blad1").Select
    Sheets("Blad1").Copy After:=Sheets(1)
    Sheets("Blad1 (2)").Select

    'Sheets("Blad1 (2)").Name = Value.("A1")    ( Så här skulle jag vilja att den gjorde )
    'Sheets("Blad1 (2)").Name = A1
 

   Sheets("Blad1 (2)").Name = "Vill ha från cell"     // Detta funkar //

    Range("A1").Select
    Sheets("Blad1").Select
End Sub