Private Sub CommandButton2_Click()
Dim strItem As String, _
rngItems As Range

Set rngItems = Range("C:C")

strItem = Range("A1").Value
Sheets("forecast").Select
rngItems.Find(What:=strItem).Activate
End Sub

I keep getting
Object variable or With block variable not set (Error 91) at the last
line (.Find)

any help appreciated