Hello
Ive that macro when I run this, Ive error
Error: Basic run error
Arg isnt an option
It`s stop on the line number 14
MACRO:
1. Option Explicit
2.
3. Function CzyscPolskie(Dane as String) As String
4.
5. Dim i As Integer
6. Dim polskie$(20)
7. Dim angielskie$(20)
8.
9. polskie$() = Array ("ą","ć","ę","ł","ń","ó","ś","ż","ź","Ą","Ć","Ę","Ł","Ń","Ó","Ś","Ż","Ź")
10. angielskie$() = Array ("a", "c", "e", "l", "n", "o", "s", "z", "z", "A", "C", "E", "L", "N", "O", "S", "Z", "Z")
11.
12. For i = 0 To 17
13.
14. Dane = ReplaceString(Dane,angielskie$(i),polskie$(i))
15.
16. Next i
17.
18. CzyscPolskie = Dane
19.
20. End Function