Sayfa1 deyken Başka sayfalara Kayıt Hatası

[tunaysin]

slm aşağıdaki gibi bir makrom var yanlız bu (müşteri) adıyla bulunan sayfa üzerinde çalıştırdığım zaman canavar gibi çalışıyor diğer sayfalara geçtiğimde çalıştırdığım zaman bana hata veriyor.

Sheets("MÜŞTERİ").Range("a3").Select
Range("a3").Select

Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

If Range("a3") = "" Then
Range("a3").Value = 1
Range("a3").Select
ActiveCell = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1

ActiveCell.Offset(0, 1) = TextBox3.Text
ActiveCell.Offset(0, 2) = TextBox4.Text
ActiveCell.Offset(0, 3) = TextBox5.Text
ActiveCell.Offset(0, 4) = TextBox6.Text
ActiveCell.Offset(0, 5) = TextBox7.Text

End If

 

[Orion1]

Hücre seçmeden diğer sayfanın adını başa koyarak.Hücre adresi verrek yapınız.
sat ve sut değişkenlerine önceden bir değr atayınız.

Sheets("Sayfa1").cells(sat,sut).value = "BURAYA YAZILACAK"