Looping Through Sheets in a Workbook for a Specific Cell to be Blank

[bill1967]

I have looked on this site and many others but not finding the exact piece of code I am looking for. Probably not asking correctly. I have a workbook that has a worksheet for each day of the year, each formatted exactly the same an labelled like this "mmddyy". What I am attempting to find is a piece of code that will loop through each sheet looking at a specific cell location in each sheet D1, looking for the first sheet where the cell is blank. Then the remainder of the macro doing several copy/paste commands then finishing by pasting a date in the cell D1. That way when the script runs the next day it will pass over the one that was just pasted to. I had a script that did this at my last job but did not think to save the code because I might need it again in the future. Any help would be appreciated.

 

[mumps]

Try:

Sub FindBlankCell()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    For Each ws In Sheets
        If ws.Range("D1") = "" Then
            'your code here to do the copy/pasting
            Exit For
        End If
    Next ws
    Application.ScreenUpdating = True
End Sub