Sayfa1 deki chekboxun işaretli olup olmadığını modülden kontrol etmek

[hsayar]

...........
If CheckBox1.Value = True Then
        'veriyi yazdıktan sonra diğer kişiye geçer
        s1.Range("g4:n50").Select                              '//yeni veri yazılacak aralığı seç ve
        Selection.ClearContents                             '//içeriğini (metin) temizle
................

satırlarını içeren kodlarım Microsofexcel objects altındaki sayfalara yapıştırınca çalışıyor, ancak
Module içinde çalışmıyor sebebi nedir.?

 

[Haluk]

if [COLOR=Red][B]sayfa1.[/B][/COLOR]checkbox1.value = true then .......

 

[hsayar]

hocam denedim olmuyor

Açılış modülü

Public s1 As Worksheet         'shet1  / sorgulama sayfası
Public s2 As Worksheet         'tablo sayfası
Public s3 As Worksheet         'bağkur nosu bulunanların raporlanacağı sayfa

Sub Acls()
Set s1 = Sheets("Sheet1")
Set s2 = Sheets("Vekal")
Set s3 = Sheets("RAPOR")
End Sub

Private Sub CommandButton1_Click()
SorgSfKont
End Sub

command butonla yönlendirdiğim modül

Sub SorgSfKont()
Acls
....................

ThisWorkbook.Save

    'CheckBox1
    If s1.CheckBox1.Value = True Then
        'veriyi yazdıktan sonra diğer kişiye geçer
        s1.Range("g4:n50").Select                              '//yeni veri yazılacak aralığı seç ve

Compile errror veriyor

 

[hsayar]

Public s1 As Object olması lazımmış.......