Networkdays code error
Code to perform networkdays function:
Set rng = Sheets("Job Details").[C3]
Set hols = Range(Sheets("Hide").[E2], Sheets("Hide").[E11])
Set myrange = Union(rng, hols)
If Not Intersect(myrange, target) Is Nothing Then
Range("Hide!D2").GoalSeek Goal:=6, ChangingCell:=Range("Hide!C2")
End If
MsgBox "The date 6 working days from " & Sheets("Job Details").[A1]
& " will be: " & WorksheetFunction.Text(Sheets("Hide").[C2], "mm/dd/yyyy")
This line errors out:
Set hols = Range(Sheets("Hide").[E2], Sheets("Hide").[E11])
Looks like it should work. What am I missing?
Thanks
|