Just for you interest Dennis you can use the address string in lieu of a cell
range that is inserted between double quotes when using in conjunction with
Range.

Range("b2").Value = WorksheetFunction.SumIf( _
Sheets(UserForm1_ID).Range(Columns(1).Address), _
Sheets("compare").Range("a2"), _
Sheets(UserForm1_ID).Range(Columns(2).Address))

Note that Columns(1).Address is a variable that replaces the part between
the double quotes in range("A:A").


--
Regards,

OssieMac