Excel 64 bit error

[wikus]

The attached code insert lines specified by user. It gives an compiler error when used on Excel 64 bit. how can I change it to work on 64 bit.

Sub InsertLine()
Dim Rng, n As Long, k As Long
Dim r As Long
ActiveSheet.Unprotect "hubert"
Application.ScreenUpdating = True
r = ActiveSheet.Buttons(Application.Caller).TopLeftCell.Row - 1
Rng = InputBox("Enter number of rows required.")
If Rng = "" Then Exit Sub
On Error Resume Next
    ActiveSheet.Range(r & ":" & r).Select
    Selection.Resize(rowsize:=Rng).EntireRow.Resize(rowsize:=Rng).Insert Shift:=xlUp
    Selection.Offset(Rng).AutoFill Selection.Resize(rowsize:=Rng + 1), xlFill
    ActiveSheet.Range("A" & r).Select
ActiveSheet.Protect "hubert"
End Sub

Any help will be appreciated

 

[RoryA]

What's the error message? I can't see anything there that should require conversion for 32 vs 64 bit.

 

[wikus]

The VBA error is:
Compile error in hidden module: Module1
This error commonly occurs when code is not compatible with the version, platform, or architecture of this application.

It runs without problems on Excel 2010 and 2013 32 bit versions

 

[RoryA]

If you unprotect the code, why is flagged as being the problem?