Range application-defined or object-defined error
Function test() As BooleanActiveSheet.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.