Excel Makro ile yeni sayfa açıp, biçimlendirme yapma?

Merhaba, Excel çalışma kitabımda 2 sayfam var. ANASAYFA ve ÖĞRENCİLER adında. ANASAYFAda bir buton ve buna bağlı makro var. Butona basıldığında ÖĞRENCİLER sayfasında C sütununda yer alan öğrenci isimlerini kullanarak her isim için yeni sayfa açıyor. Buraya kadar yazdığım makro altta yer almaktadır.

Sub OgrenciSayfaOlustur()
SonHucre = Worksheets("ÖĞRENCİLER").Cells(Rows.Count, "C").End(xlUp).Row
Dim SheetCount As Integer
Dim SayfaAdi As String
For i = 2 To SonHucre
SheetCount = Worksheets.Count
Worksheets.Add After:=Worksheets(SheetCount)
ActiveSheet.Name = Worksheets("ÖĞRENCİLER").Cells(i, 3)
Next i

End Sub

Buraya kadar sıkıntı yok. Buradan sonra açılan her sayfanın A1 hücresine TÜRKÇE yazdırmak istiyorum. Fakat for döngüsü içerisinde bir türlü yapamadım. Sonuçta açılan sayfanın adı belli olmayacağı için döngü sonuna Next'ten önce bunu ekledim Worksheets(Worksheets("ÖĞRENCİLER").Cells(i, 3)).Range("A1").Value = TÜRKÇE , ama olmadı. Ne yapabilirim? Yardımlarınızı bekliyorum.

Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
If Not ws.Name = "ANASAYFA " or “ÖĞRENCİLER” Then
ws.Range(“A1”)=“TÜRKÇE”

End If
Next ws

Teşekkürler hocam