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)