Upgraded from Office 2007 to Professional 2021 and now Macros won't work

[Queenofmycastle]

I have a file that I use annually to print lots of forms for 20 "Locations". They pull information to include things such as Location Name, Address, etc..
Our company just upgraded from 2007 20 Professional 2021 and today was the first time I attempted to run any macros.

This is the first one:
Sub PrintEntireSetJ6()
Dim i As Integer


' First choose a printer
Application.Dialogs(xlDialogPrinterSetup).Show

[J6].FormulaR1C1 = "0"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"


For i = 1 To 20
[J6].FormulaR1C1 = CStr(i)
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
[J6].FormulaR1C1 = "1"
End Sub


This time I am getting a Compile Error "Can't find project or Library" The first line highlights as yellow and the [J6] highlights as blue. Our IT person stated it was probably due to the file name extension being different but I don't know how to fix my problem. Any advice appreciated!

 

[MARK858]

In your VBE click Tools - References and see if any have the word MISSING next to them

 

[Queenofmycastle]

In your VBE click Tools - References and see if any have the word MISSING next to them

I appreciate your help! This is what the screen looks like.

 

[RoryA]

Uncheck the Calendar control (assuming you aren't using it in the project; if you are, you have a problem). Then save and re-run.

 

[Queenofmycastle]

It Worked! It Worked! I'm doing a happy dance. I have so many forms setup this way and never considered that upgrading Excel would be a problem. I am so grateful for your help. I would have never figured that out.

 

[RoryA]

Glad we could help.

If I remember correctly, the Calendar control was removed from Office from 2010 onwards, so most people have already been through this pain.

 

[Queenofmycastle]

You guys were awesome in helping me sort out my problem! I am so very grateful! I have an addendum question I was hoping you could assist me with. I may should have started another thread?

Instead of

For i = 1 To 20

I would like it to be able to do 1,11,21,31.... up to a certain number. Is there any hope?

 

[MARK858]

Try...

Sub TESTIT()
    Dim i As Long
    For i = 1 To 121 Step 10 ' change 121 to suit
        Debug.Print i
    Next
End Sub

 

[Queenofmycastle]

Wonderful! My job doesn't entail Excel use daily but when it does, it is such a blessing! I am beyond grateful!

 

[MARK858]

You're welcome