Application Defined Error Excel 2013 ONLY

[jamesblack90]

Hey Guys,

Have written everything using Office Mac 2010, and it works perfectly. I am now testing on Office 2013 and have the following issue with this line:

Range("K39").Value = strCopyright(1)

and only this line. It says "Application-defined or object-defined error". It works on all other sheets, and it works for K38 in the Proposal worksheet. I can't work it out :/

Also, as a side question, is it normal that Excel 2013 takes FOREVER to run macros (Like I have to wait up to a minute when I activate certain sheets and it calls one or two quite small subs) ..when they happen instantly on my less powerful macbook running 2010?

Public Sub copyright_info()
Dim strCopyright(1) As String


strCopyright(0) = "xxxx"
strCopyright(1) = "xxxx"


ActiveSheet.Unprotect


Select Case ActiveSheet.name
    Case "Home"
        Range("H32").Value = strCopyright(0)
        Range("H33").Value = strCopyright(1)
        
    Case "Proposal"
        Range("K38").Value = strCopyright(0)
        Range("K39").Value = strCopyright(1)
        
    Case "Servicing"
        Range("P74").Value = strCopyright(0)
        Range("P75").Value = strCopyright(1)
        
    Case "Equity Calculator"
        Range("R46").Value = strCopyright(0)
        Range("R47").Value = strCopyright(1)
        
End Select


ActiveSheet.Protect


End Sub

 

[Beard]

I am very much a novice when it comes to Excel, but if you comment out that line for testing purposes, does the rest work?

As for the performance, I learned of Application.ScreenUpdating = FALSE . If you put that at the start of the code block and Application.ScreenUpdating = TRUE at the end, I found that I gained quite a bit of speed in my code.

Hope this helps.