sayfanın ismi değişiyor

[mahmutozdemir]

kayıt sayfasına çift tıklayıp entera basınca sayfanın adı değişiyor neden olabilir.makrodamı bir hata var.

 

[turan1971]

Sayfa7'de makro mevcut. 3. satır sayfa adını değiştiriyor...

Private Sub Worksheet_Change(ByVal Target As Range)
If Selection.Cells.Address <> "$A$1" And [A1] = "" Then Exit Sub
ActiveSheet.Name = ActiveSheet.Range("A1")
If Intersect(Target, Range("A32:A38")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False

Cells.EntireRow.Hidden = False
If Range("A32") = "" Then
Range("A32:A38").EntireRow.Hidden = True
Else
Range("A" & Range("A38").End(3).Row + 1 & ":A38").EntireRow.Hidden = True
End If
Application.ScreenUpdating = True
End Sub

 

[mahmutozdemir]

turan bey benim yapmak istediğim anasayfanın a1 sutunundaki veri adında kayıt sayfasını çoğaltmak

 

[mahmutozdemir]

ActiveSheet.Name = ActiveSheet.Range("A1") bunu çıkarınca oldu teşekkürler