lukecj
03-08-2012, 05:02 PM
I continue to receive this error when running the below code IF the activesheet is not Sheet6, but when I execute it with Sheet6 as the activesheet, it works. I know I am probably not defining "RecordNumber" correctly. Any ideas? Would greatly appreciate the help. I have been googling for an hour and a half. Thanks.
Sub MonsterProject()
Dim RecordNumber As Long
Application.ScreenUpdating = False
Sheet6.[infinity_mean].End(xlToLeft).Offset(0, 1).Value = Sheet2.[security].Value
RecordNumber = Sheet6.Range("ref_mean", Range("ref_mean").End(xlToRight)).Count - 1
Sheet6.[Paste_Mean].Offset(0, RecordNumber).Value = Sheet16.[Saved_Mean].Value
Sheet6.[paste_OneSDev].Offset(0, RecordNumber).Value = Sheet16.[saved_OneSDev].Value
Sheet6.[paste_TwoSDev].Offset(0, RecordNumber).Value = Sheet16.[saved_TwoSDev].Value
Sheet6.[paste_ThreeSDev].Offset(0, RecordNumber).Value = Sheet16.[saved_ThreeSDev].Value
Sheet6.[paste_Scenario1].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario1].Value
Sheet6.[paste_Scenario2].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario2].Value
Sheet6.[paste_Scenario3].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario3].Value
Sheet6.[paste_Scenario4].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario4].Value
Sheet6.[paste_Scenario5].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario5].Value
Application.ScreenUpdating = True
End Sub
Sub MonsterProject()
Dim RecordNumber As Long
Application.ScreenUpdating = False
Sheet6.[infinity_mean].End(xlToLeft).Offset(0, 1).Value = Sheet2.[security].Value
RecordNumber = Sheet6.Range("ref_mean", Range("ref_mean").End(xlToRight)).Count - 1
Sheet6.[Paste_Mean].Offset(0, RecordNumber).Value = Sheet16.[Saved_Mean].Value
Sheet6.[paste_OneSDev].Offset(0, RecordNumber).Value = Sheet16.[saved_OneSDev].Value
Sheet6.[paste_TwoSDev].Offset(0, RecordNumber).Value = Sheet16.[saved_TwoSDev].Value
Sheet6.[paste_ThreeSDev].Offset(0, RecordNumber).Value = Sheet16.[saved_ThreeSDev].Value
Sheet6.[paste_Scenario1].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario1].Value
Sheet6.[paste_Scenario2].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario2].Value
Sheet6.[paste_Scenario3].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario3].Value
Sheet6.[paste_Scenario4].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario4].Value
Sheet6.[paste_Scenario5].Offset(0, RecordNumber).Value = Sheet16.[saved_Scenario5].Value
Application.ScreenUpdating = True
End Sub