Range application-defined or object-defined error

Function test() As Boolean
    ActiveSheet.Range("H3:H6,I3:I6,D3:D6,B3:B6").Select
    test = True
End Function

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If test() Then
    // noget
End if

Her får jeg en 1001 application-defined or object-defined error.