> currentWorkSheet = application.ActiveWorkbook.Worksheets(1)
> sCell = currentWorksheet.Cells

Second line should be currentWorkSheet and not currentWork*s*heet (or
rather first without capitalized S)
BTW, use rather current_worksheet for your variables (downcase and
underscores), it's more "Ruby style"

Cheers,

-- 
JJ Fleck
PCSI1 Lyc˝Ă Kl˝├er