Run-Time Error 1004 Hatası

[Bintang]

Merhaba; Çalıştığım dosyada isim sıralaması yapması için makro yaptım ancak bu hatayı alıyorum.* İşareti koyduğum alan sarı işaretli.

Son_Kontrol Makro
'

'
ActiveWindow.SmallScroll Down:=-20
Range("A3:J151").Select
ActiveWorkbook.Worksheets("SON KONTROL").Sort.SortFields.Clear
*ActiveSheet.Shapes.Range(Array("Flowchart: Alternate Process 1")).Select
ActiveWorkbook.Worksheets("SON KONTROL").Sort.SortFields.Add Key:=Range( _
"A3:A151"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("SON KONTROL").Sort
.SetRange Range("A3:J151")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[PLİNT]

Merhaba

[SIZE="2"]*ActiveSheet.Shapes.Range(Array("[COLOR="Red"]Flowchart[/COLOR]: Alternate Process 1")).Select[/SIZE]

Akış çizelgesi şekli; seçilmesi isteniyor bulunamadığı için hata vermiştir, kodlardaki o satırı silerek deneyiniz.

 

[Bintang]

Teşekkür ederim.