Input cell info into sheet whose tab name matches same (partial) tab date

[CastingDirector]

Hello,
I am holding out hope that you can help me. My workbook has several sheets (up to 25). Many (not all) of the sheets have dates as part of their tab name(s) ie. "Schedule on DATE" & Call "Sheet for DATE". The date is formatted (MM-DD-YYYY). I would like to insert text information in cell "E5" on the sheet that corresponds to the same dated sheet. Seems remarkably easy yet I really have done my research and cannot find the right configuration. I've tried the following with no luck:

Dim nDate As Date
Dim N As String
nDate = (Format(nDate, "MM-DD-YYYY"))
     ActiveSheet.Name.value = ("*" & nDate)
        For Each Sh In Worksheets
               If Sh.Name Like "*" & nDate Then
               Sheets(Sh.Name)("E5").value = TextBox5.value
               End If
        Next Sh

My fear is that I will always be a newbee! This is going on years of trying to figure Excel out! Can you help?

 

[JLGWhiz]

Put a date in a cell and give nDate the value of that cell.
Example"

Dim nDate As Date, Sh[COLOR=#FF0000] As Worksheet[/COLOR]
[COLOR=#DAA520]nDate = Sheet1.Range("A1").Value[/COLOR]
Dim N As String
nDate = (Format(nDate, "mm-dd-yyyy"))
     ActiveSheet.Name.value = ("*" & nDate)
        For Each Sh In Worksheets
               If Sh.Name Like "*" & nDate Then
              [COLOR=#FF0000] Sh[/COLOR].Range("E5").value = TextBox5.value [COLOR=#008000]'Declare sh as worksheet and use it as sheet object[/COLOR]
               End If
        Next Sh

 

[CastingDirector]

Thanks JLGWhiz. This is amazing help!

 

[CastingDirector]

Thanks JLGWhiz. This is amazing help! It does code out "424" Object variable so I guess I am still mission something. I am not sure what "use it as sheet object" really means...thoughts?

nDate = ActiveSheet.Range("A8").value
nDate = (Format(nDate, "mm-dd-yyyy"))
    ActiveSheet.Name.value = ("*" & nDate)
        For Each Sh In Worksheets
               If Sh.Name Like "*" & nDate Then
               Sh.Range("E5").value = ActiveSheet("E5").value  'Declare sh as worksheet and use it as sheet object
               End If
        Next Sh

 

[JLGWhiz]

I am not sure what "use it as sheet object" really means...thoughts?

When you declare sh as a worksheet in your declarations and then use it in the For Each statement, it has the same effect as a Set statement. So if the first qualified sheet in the workbook is named data the variable sh would be equivalent to Sheets("data") as if you had used

Set sh = Sheets("data")

The sh variable holds the Sheets("data") string as a range object so you don't have to use the Sheets(sh.Name) syntax. The sh variable automatically picks up the next sheet object info on each iteration of the loop.

Change this

ActiveSheet.Name.value = ("*" & nDate)

To this

ActiveSheet.Name = ("*" & nDate)

you can't use value on a Name property. But I don't know what you are attempting with that line anyhow.

 

[CastingDirector]

When you declare sh as a worksheet in your declarations and then use it in the For Each statement, it has the same effect as a Set statement. So if the first qualified sheet in the workbook is named data the variable sh would be equivalent to Sheets("data") as if you had used

Set sh = Sheets("data")

The sh variable holds the Sheets("data") string as a range object so you don't have to use the Sheets(sh.Name) syntax. The sh variable automatically picks up the next sheet object info on each iteration of the loop.

Change this

ActiveSheet.Name.value = ("*" & nDate)

To this

ActiveSheet.Name = ("*" & nDate)

you can't use value on a Name property. But I don't know what you are attempting with that line anyhow.

This was so helpful and kind of you. You have my sincere thanks.

 

[JLGWhiz]

This was so helpful and kind of you. You have my sincere thanks.

You're welcome,
regards, JLG