Işlemler isim olan sayfalar üzerinde yapılıyorsa ve isimli sayfalar A1 ile aynıysa döngüyü ona göre kurmamız daha uygun olmaz mi mesela işlem gören sayfa KEMAL BULUT ise bu sayfanın A1 hücresi de KEMAL BULUT o durumda

If LCase(ActiveSheet.Name) = Lcase(Range("A1")) then 

    If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var 

    alttoplamAl 

Else

    ListBox1.Clear     

    Exit Sub

End if

Var:

Yada

If LCase(ActiveSheet.Name) <> lcase(range("A1")) Then

    ListBox1.Clear

    Exit Sub

End If

If WorksheetFunction.CountA(Range("A7:A" & Rows.Count)) = 0 Then GoTo var

alttoplamAl

var:

gibi