jamesblack90
New Member
- Joined
- Jun 9, 2015
- Messages
- 44
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?
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?
Code:
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