Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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. |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Run Time error 1004 | Excel Discussion (Misc queries) | |||
Run time error '91' object variable-explain in plain english?? | Excel Discussion (Misc queries) | |||
run time error 1004 for other user | Excel Discussion (Misc queries) | |||
Help needed with Run Time Error 1004 | Excel Discussion (Misc queries) | |||
How do you sum a range of more than 30 cells. I get error each time I try. | Excel Worksheet Functions |