Min Function across multiple worksheet and associated worksheet title for clarification

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Here is a VBA solution:

Option Explicit

Sub Defense()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Set sh = Sheets("AFTER SHEET")
    For Each ws In Worksheets
        If ws.Name <> "AFTER SHEET" Then
            If ws.Range("B4") = sh.Range("B2") Then
                sh.Range("D2") = ws.Name
            End If
        End If
    Next ws
End Sub

How to install your new code

1. Copy the Excel VBA code
2. Select the workbook in which you want to store the Excel VBA code
3. Press Alt+F11 to open the Visual Basic Editor
4. Choose Insert > Module
5. Edit > Paste the macro into the module that appeared
6. Close the VBEditor
7. Save your workbook (Excel 2007+ select a macro-enabled file format, like *.xlsm)

To run the Excel VBA code:

1. Press Alt-F8 to open the macro list
2. Select a macro in the list
3. Click the Run button