Visual Basic - Error jenom v některých verzích Office – Visual Basic – Fórum – Programujte.com

Ahoj, prosím o radu ohledně makra. 
Některé verze office toto makro berou v pořádku, jiné hlásí chybu:

Připojen obrázek.

Myslím si, že tam mám chybu v nějakém detailu zápisu, když to některé verze berou.

Zjednodušeně se jedná o Makro, které mi na základě podmínky zapíše hodnoty z jednoho sloupce do druhého:

Sub pouzit_v_planu()
Application.ScreenUpdating = False
Sheet8.Unprotect "..."
Sheet8.Activate
Columns("BY").Select
Selection.ClearContents
Dim i As Integer
Dim m As Integer
m = 17
For i = 18 To (24) Step 1
BY = 18 'jdu po řádcích
'kam chci název napsat

If Range("BP" & i).Value = 2 Then
m = m + 1
Range("BY" & m).Value = Range("BM" & i).Value

End If
Next i
Sheet8.Protect "...", , , , , True, True, True, True, True, , , , , True

Application.ScreenUpdating = True
End Sub

Díky za rady, Katka

#1 Kateřina
ano tak s VBA v Office je hroznýproblém poslední verze, která byla stabilní pro programování byla někde Office 2003 a vše další je nestabilní ... a navíc se liší verze od verze takže musíš pracovat jen pro konkrétní verzi ... poslední 2019 by měla být lepší než předchozí katastrofální 2013 a 2016 ... pokud máš možnost, používej celý systém Office 2003 ve virtuálním prostředí VMWare nebo něco podobného a přenášej si sebou Image.

#1 Kateřina
ahoj,

já míval problém s range("xx" & i) vyřešil jsem to dvojitýma závorkama range(("xx" & i)), také by se možná vyplatilo udělat si lokální proměnou pro worksheet nastavit

set ws=Sheet8     - z názvu objektu listu

set ws= ActiveWorkbook.Sheets("Sheet8")    - z názvu listu (jméno na záložce)

a pak pracovat s ní včetně vložení k range tzn ws.range((...

případně si kod rozkouskovat a zjistit na které/ých řádkách to detekuje tu chybu.