hata raporu

[öğrtm]

y = Sheets("Rapor").Range("a1").End(xlToRight).Column
sonsat = Sheets("Rapor").Cells(1048576, y).End(3).Row
Sheets("Rapor").Range(Cells(1, 1), Cells(sonsat, y)).Borders.LineStyle = xlContinuous

yukarıdaki kodlar bir userform üzerindedir.Rapor isimli sayfa açıkken yukarıdaki kodlar düzgün çalışıyor.fakat başka bir sayfa açıkken kırmızı renkle gösterdiğim kısım hata veriyor.halbuki sheets("Rapor") şeklinde kodun önüne ekleme yapmıştım

konuyla ilgili yardımlarınızı bekliyorum

 

[öğrtm]

Sheets("Rapor").Range(Sheets("Rapor").Cells(1, 1), Sheets("Rapor").Cells(sonsat, y)).Borders.LineStyle = xlContinuous

şeklinde deneyince oldu.
herkese iyi çalışmalar