I am needing to place data into different worksheets depending on choices
from the user. I am needing to activate the worksheets based on those
choices. I was using the folowing code but am running into problems, and am
not sure how to get it to work.

'Day is row to place info in
'Movie is the name of the movie for that time
'PCount is the Performance Count for that time
Dim Day As Integer
Dim PCount As Integer
Dim Movie As Integer

Private Sub cmdApply_Click()
Range("A3").Select
Day = ActiveCell.Value + 3
'9am
Range("C5").Select
Movie = ActiveCell.Value
Range("C3").Select
PCount = ActiveCell.Value
Worksheets(Movie).Active
Range("C" & Day).Select
ActiveCell.Value = PCount

the movie variable has been done as a integer with the sheet index and as a
string with the sheet name both having problems. Any help is appreciated.