Run-time error?

[CWillis]

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.

[mrice]

Could it be that the division can give a non-integer answer?

[Kevin B]

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.