Run-time error?
I have a command button that executes many different subs. It will not
execute the following sub (written inside sheet13(summ)): Sub SummAddTextBoxHeaders() 'TPTB Sheets("Summ").Activate ActiveSheet.Cells(56 + (TPTB.Height - 66) / 12, 1).Select With Selection .Value = "Tech & Proj. Data Project Engineer Summary:" .Font.Bold = True End With End Sub It gives the following error: Run-time error '-2147417848(80010108)': Method 'Run' of object '_Application' failed I can run it by stepping through it with no problems. The offending line when using the command button is: ActiveSheet.Cells(56 + (TPTB.Height - 66) / 12, 1).Select (If I comment this line and the ones below it, I have no problems.) I have tried placing the routine in other locations with no success. Any help would be greatly appreciated. Thank you. |
Run-time error?
Could it be that the division can give a non-integer answer? -- mrice Research Scientist with many years of spreadsheet development experience ------------------------------------------------------------------------ mrice's Profile: http://www.excelforum.com/member.php...o&userid=10931 View this thread: http://www.excelforum.com/showthread...hreadid=551194 |
Run-time error?
I'm not quite sure what you intent was, but I created a textbox, using the
default name of "Rectangle 1", and assigned it to a Shape object varaible. The code ran fine, inserting your stated text value at row 53 Here's the modified code: Dim TPTB As Shape Set TPTB = ActiveSheet.Shapes("Rectangle 1") ActiveSheet.Cells(56 + (TPTB.Height - 66) / 12, 1).Select With Selection .Value = "Tech & Proj. Data Project Engineer Summary:" .Font.Bold = True End With -- Kevin Backmann "CWillis" wrote: I have a command button that executes many different subs. It will not execute the following sub (written inside sheet13(summ)): Sub SummAddTextBoxHeaders() 'TPTB Sheets("Summ").Activate ActiveSheet.Cells(56 + (TPTB.Height - 66) / 12, 1).Select With Selection .Value = "Tech & Proj. Data Project Engineer Summary:" .Font.Bold = True End With End Sub It gives the following error: Run-time error '-2147417848(80010108)': Method 'Run' of object '_Application' failed I can run it by stepping through it with no problems. The offending line when using the command button is: ActiveSheet.Cells(56 + (TPTB.Height - 66) / 12, 1).Select (If I comment this line and the ones below it, I have no problems.) I have tried placing the routine in other locations with no success. Any help would be greatly appreciated. Thank you. |
All times are GMT +1. The time now is 09:27 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com