Can't assign price/date from another cell to variable

Hi,

A fairly basic question. I'm getting a 'runtime error 13: type mismatch' when I tried assigning a price or date from another cell to a variable.

I've tried the following:

Date1 = ThisWorkbook.Sheets(sCell).Range("A2").Value
Date1 = Sheets(sCell).Range("A2").Value
Date1 = Sheets(sCell).Range("A2").Date

I need to assign the variable while I am running a 'For each [cell] in [range]' loop, so I'll need to assign a new value to the variable for each leg of the loop. I've declared Date1 as a date.

Hope that that's sufficiently clear, forgive my bad programming grammar, I'm pretty new to the scene. Ideas?

Thanks,

vanckzhu

EDIT: Never mind, I was being an idiot. My problem was not with the variables, it was with the select case code.