shift to right, syntax problem

Hi all !! i have a problem with the execution ... it hangs on the Resize shiftright;
please is it written correctly or should change something ? tx! paolo

Option Explicit
Public i as Long

Sub Mia()
Dim aWB As Workbook
Dim aWS As Worksheet
Set aWB = ThisWorkbook
Set aWS = aWB.Worksheets("L")
'On Error Resume Next
For i = 2 To 1000
If aWS.Range("A" & i).Value <> 0 Then 
Call MiaBis
End If
End Sub

Sub MiaBis()
Sheets("LList").Range("CAA" & i).Resize(0, 5).Insert Shift:=xlToRight
End Sub