hi,

I have a dropdown box in one of my sheets. The values for selection are
based on a range of values in another sheet. When I select a value, I get a
"No item in this name exists in the Pivot Table Report. Rename '1/31/2006'
to 38748. Here is the code I have behind the OnChange for the combobox:


Dim sDat As Date

With Sheets("Lookup")
sDat = .Range("H2").Value
End With

With Sheets("pivotUnit222c")
.Range("B7").Value = sDat
End With

With Sheets("pivotUnit111s")
.Range("B7").Value = sDat
End With

Can someone tell me what I am doing wrong? I know the date values exist in
the Pivot sheets, because I can manually select/change them uwing the pivot
sheets.

Thanks in advance,
geebee