I want to change this from the Master sheet to the active sheet MyConstant = Application.CountA(Sheets("Master").Range("A2:I31"))