throtmorton
09-15-2014, 07:23 AM
Hi folks,
First, sorry that this code isn't posted correctly. I couldn't find the VBA button mentioned in the FAQ, and clicking the # button added a whole bunch of font gobbledygook.
Here's an excerpt from a function that works fine on the PC. It gets hung up at wksSheet.Activate on the Mac. The error message is that the item with the specified name wasn't found.
Any help appreciated.
Thanks,
Paul
VB:
Public Function bFivetoThree() As Boolean
Const szSource As String = "bFivetoThree()"
Dim wksSheet As Excel.Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
wksSheet.Activate
ActiveSheet.ChartObjects("DashboardCash").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Data").Range("D$91:$AM$92")
End If
End If
Next wksSheet
First, sorry that this code isn't posted correctly. I couldn't find the VBA button mentioned in the FAQ, and clicking the # button added a whole bunch of font gobbledygook.
Here's an excerpt from a function that works fine on the PC. It gets hung up at wksSheet.Activate on the Mac. The error message is that the item with the specified name wasn't found.
Any help appreciated.
Thanks,
Paul
VB:
Public Function bFivetoThree() As Boolean
Const szSource As String = "bFivetoThree()"
Dim wksSheet As Excel.Worksheet
For Each wksSheet In ThisWorkbook.Worksheets
wksSheet.Activate
ActiveSheet.ChartObjects("DashboardCash").Activate
ActiveChart.PlotArea.Select
ActiveChart.SetSourceData Source:=Sheets("Data").Range("D$91:$AM$92")
End If
End If
Next wksSheet