Should have also looked at the context of what you are doing, sorry!
Actually your code works fine on my machine as written. However, the 424
error implies that it does not recognize the either STRng or the InputBox
result as an object. I am also baffled.

--
- K Dales


"K Dales" wrote:

The SET statement (SET STRng = ...) is to set an object variable equal to
another object of the same type (or to NOTHING). Just use plain "=" here.
--
- K Dales


"Jim May" wrote:

My code down to the problem...

Sub Foo()
Dim lrow As Long
Dim numhpb As Long
Dim lrprint As Long
Dim LPage As Long
Dim i As Integer
Dim STRng As Range
Application.EnableEvents = False
Set STRng = Application.InputBox("Highlight the Range of Amts to be
Subtotaled", Type:=8) <<<< error here !! (this statement is on one line)