Cannot jump to "ActiveCell' because it is hidden error

[liferg]

I am really hoping that someone can help with me my problem. I am not excel savvy with macro, but I can record a macro and get it to do what I need to do. I keep getting this message when I run my macro, click debug and then right click on the yellow highlighted error. A pivot table has been created based off of some information on another tab, however outside out the table I want to include a formula. This works on mine, but when I have copied this macro over to someone else this is where it freaks out at. I am not sure how much of the macro to copy and hope that I am copying enough for someone to assist me.

Sheets("Sheet9").Select</SPAN>
Cells(3, 1).Select</SPAN>
With ActiveSheet.PivotTables("PivotTable1").PivotFields("PO#")</SPAN>
.Orientation = xlRowField</SPAN>
.Position = 1</SPAN>
End With</SPAN>
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _</SPAN>
"PivotTable1").PivotFields("TCSTDIF1"), "Sum of TCSTDIF1", xlSum</SPAN>
With ActiveSheet.PivotTables("PivotTable1").PivotFields("IOSUPR")</SPAN>
ActiveSheet.PivotTables("PivotTable1").PivotFields("IOSUPR").Subtotals = Array( _</SPAN>
False, False, False, False, False, False, False, False, False, False, False, False)</SPAN>
ActiveSheet.PivotTables("PivotTable1").PivotFields("IOSUPR").LayoutForm = _</SPAN>
xlTabular</SPAN>
With ActiveSheet.PivotTables("PivotTable1").PivotFields("ISVNNO")</SPAN>
.Orientation = xlRowField</SPAN>
.Position = 2</SPAN>
End With</SPAN>
ActiveSheet.PivotTables("PivotTable1").PivotFields("ISVNNO").Subtotals = Array( _</SPAN>
False, False, False, False, False, False, False, False, False, False, False, False)</SPAN>
ActiveSheet.PivotTables("PivotTable1").PivotFields("ISVNNO").LayoutForm = _</SPAN>
xlTabular</SPAN>
ActiveSheet.PivotTables("PivotTable1").PivotFields("PO#").Subtotals = Array( _</SPAN>
False, False, False, False, False, False, False, False, False, False, False, False)</SPAN>
ActiveSheet.PivotTables("PivotTable1").PivotFields("PO#").LayoutForm = _</SPAN>
xlTabular</SPAN>
.Orientation = xlRowField</SPAN>
.Position = 2</SPAN>
Range("E4").Select</SPAN>
ActiveCell.FormulaR1C1 = _</SPAN></SPAN>
"=IF(AND(RC[-3]<>RC[-2],RC[-1]=0),""CHECK PO MANUALLY(BILLED PER PO)"",IF(AND(RC[-3]<>RC[-2],RC[-1]>-100,RC[-1]<100),""CHECK PO MANUALLY(UNDER TOL)"",IF(AND(RC[-3]<>RC[-2],RC[-1]<-100),""CHECK PO MANUALLY(UNDER TOL)"",IF(AND(RC[-3]<>RC[-2],RC[-1]<-100),""CHECK PO MANUALLY(CB@PE)"",IF(AND(RC[-3]<>RC[-2],RC[-1]>100),""CHECK PO MANUALLY(BILLED LESS)"",IF(RC[-1]=0,""BILLED PER PO"",IF(AND(RC[-1]>-100,RC[-1]<100),""UNDER TOL"",IF(RC[-1]<-100,""CB@PE"",IF(RC[-1]>100,""BILLED LESS"","""")))))))))"</SPAN></SPAN>
Range("E4").Select</SPAN>
Selection.AutoFill Destination:=Range("E4:E1700")</SPAN>

 

[liferg]

Can someone please help me get this fixed possibly?

 

[Andrew Poulsom]

The user must have Excel 2007 or above and must not be viewing the workbook in Compatibility Mode.

 

[liferg]

How can you tell if they are viewing in compatibility mode? He does definitely have Excel 2007, that's what we all have. I was able to verify that version on his.

 

[Andrew Poulsom]

It says so in the Title Bar of the Excel Window, eg:

Microsoft Excel - Book7.xls [Compatibility Mode]

 

[Jonmo1]

That's what the Msgbox Rows.Count was supposed to test..
Strage that you got invalid qualifier error. This may be another symptom of your issue.
Where is your code located? In a standard module, or a Sheet Module, or the Workbook Module?


To see if you're in compaitibility mode.
On the problematic machine, open the workbook, in an empty column press CTRL + Down Arrow
What is the last row# ?

If it has 65536 then it's in compatibility mode
If it has 1Million+ then it's not.


Also, it should just say [compatibility mode] in the Title Bar of the Excel Window (next to the file's name)

 

[liferg]

Yes, he is in compatibility mode. How do I get him out of that? I thank you guys for your patience, I am just not that knowledgable with macros.

 

[Jonmo1]

save the file with .xlsX extention, not just .xls

 

[Andrew Poulsom]

Or xlsm if it contains your VBA code.

 

[liferg]

Ok, we finally got him out of the compatibility mode and ran the macro again. We got another run time error:

Run-time error '1004': AutoFill method of Range class failed.

And now this is the part that's highlighted:

Range("E4").Select</SPAN>
Selection.AutoFill Destination:=Range("E4:E1700")</SPAN>