CommandButton85.Caption

[ismailozkan4224]

değerli arkadaşlar user form üzerinde CommandButton85 butonum var. form açıldığında bu butonun caption özelliği
sayfa 1-30 arasında aşağıdaki gibi oluyor. yani istediğimi yapıyor.
fakat sayfa ismi "kapak","veri" gibi metin olduğunda hata veriyor. nasıl bir çözüm önerirsiniz. yani sayfa 1-30 haricinde bir sayfaya gittiğimde o sayfanın ismini yazmasını istiyorum.
If ActiveSheet.Name >= 1 Then
CommandButton85.Caption = "Şikayet Eden - " & ActiveSheet.Name & vbLf & Cells(5, 13)
'Else: CommandButton85.Caption = ActiveSheet.Name
End If
If ActiveSheet.Name >= 6 Then
CommandButton85.Caption = "Şikayet Edilen - " & ActiveSheet.Name - 5 & vbLf & Cells(5, 13)
'Else: CommandButton85.Caption = ActiveSheet.Name
End If
If ActiveSheet.Name >= 11 Then
CommandButton85.Caption = "TANIK - " & ActiveSheet.Name - 10 & vbLf & Cells(5, 13)
'Else: CommandButton85.Caption = ActiveSheet.Name
End If
If ActiveSheet.Name < 1 Then
CommandButton85.Caption = ActiveSheet.Name
End If

 

[hamitcan]

Muhtemelen bunun gibi satırlardan kaynaklanıyor

If ActiveSheet.Name >= 1 Then

 

[ismailozkan4224]

Muhtemelen bunun gibi satırlardan kaynaklanıyor

If ActiveSheet.Name >= 1 Then

Hamitcan kardeşim deneyeceğim