Worksheet Custom Properties
OK,
I did not know this.
As an alternative
Function Data_Appears_Valid(Check_Sheet As Worksheet) As Boolean
Dim mypropsheet as object
....
....
set mypropsheet = Check_Sheet
if mypropsheet .Insulation_Type = "" Then
.......
should also work
DM Unseen
|