Look for blank cells on a non active sheet?

[danbates]

Hi,

Please can someone help me?

I have this code that works fine for me when the Daily Check Sheet is active.
I now need it altering so the code still looks for the same blanks cells on the Daily Check Sheet but when the sheet isn't active.

Here is my code:

Sub DaysandMonthsandInitials()

ThisWorkbook.Sheets("Daily Check Sheet").Activate


ActiveCell.Offset(0, 1).Select


D = WorksheetFunction.CountBlank(ActiveCell.Resize(14))
M = WorksheetFunction.CountBlank(ActiveCell.Offset(16))


'MsgBox D & ", " & M


If D > 0 And M > 0 Then


DaysandMonths


ElseIf D = 0 And M > 0 Then


Months


ElseIf D > 0 And M = 0 Then


Days


End If
End Sub

Any help would be appreciated.

Thanks

Dan

 

[mumps]

You cannot select a cell on a sheet unless it is the active sheet. Is the active cell on "Daily Check Sheet" always the same and if so, what is it?