If LCase(ActiveSheet.Name) = "sayfa1" Or LCase(ActiveSheet.Name) = "liste" Or LCase(ActiveSheet.Name) = "şablon" Then
ListBox1.Clear
Exit Sub
End If
Userform1 deki Private Sub UserForm_Initialize() altına alttaki kodu eklerseniz daha iyi olur bence.Konu ile alakası yok fakat eksiklik var kodunuzda.