try like
vb Code:
  1. NumOfWorkers = Application.CountA(Sheets("Paycard").Range("F3:K" & rw)
where rw is your row variable