Macro negde radi negde ne

[brale]

Ovaj macro na nekim racunarima radi a na nekim ne.U čemu je caka?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.AddressLocal = "$F$5" Or Target.AddressLocal = "$F$22" Or Target.AddressLocal = "$F$41" Then
If Worksheets("OBRAZAC 1-1").Cells(5, 6) = "X" Or Worksheets("OBRAZAC 1-1").Cells(22, 6) = "X" Or Worksheets("OBRAZAC 1-1").Cells(41, 6) = "X" Then
Dim MyBroj As Integer
Dim MyString As String


MyString = InputBox("Unesite koliko osoba jos zelite da dodate", "OBRAZAC 2")
If IsNumeric(MyString) = False Then
MsgBox "Vrednost koju ste uneli nije numericka", vbCritical, "Greska"
Exit Sub
End If
MyBroj = CInt(MyString) - 1
If MyBroj = 0 Then Exit Sub
For Each ws In Worksheets

Next i
For i = MyBroj To 1 Step -1
If ws.Name = "OBRAZAC 2-1" Then Exit Sub
ActiveWorkbook.Unprotect Password = "apml"
Worksheets("OBRAZAC 2").Copy After:=Worksheets("OBRAZAC 2")
Worksheets("OBRAZAC 2 (2)").Name = "OBRAZAC 2-" & i
ActiveWorkbook.Protect Password = "apml"

Next i
End If
End If
End Sub

 

[brale]

Rešeno, glupi kaspersky i njegov macro monitoring.Tačka.