Call sheet name but sheet name may vary.

[taylorsm]

I have a report done for me but the sheet names flip flop between "Migrated" or "Sheet 1" and "Non-Migrated" or "Sheet 2". So my macro breaks.

How do I set worksheet to have either name. I don't know if I have to do an array and if I do, how to use that other than just declaring the array.

Sub ED4NotepadFormat()

'On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim sht As Worksheet
Dim objListObj As ListObject

'Migrated - Sheet 1
Set sht = ActiveWorkbook.Worksheets("Non-Migrated") '''or sheet 1

'Non-Migrated - Sheet 2
Set wrksht = ActiveWorkbook.Worksheets("Migrated") '''or sheet 2
Dim lastrow As String
Dim ws As Worksheet

[Fluff13]

One option is

   If Evaluate("isref('Non-migrated'!A1)") Then
      Set sht = ActiveWorkbook.Worksheets("Non-Migrated")
   Else
      Set sht = ActiveWorkbook.Sheets("Sheet1")
   End If

& the same for the other sheet

[mehmetcik]

Sub test()

Dim sht As Worksheet

MyArray = Array("Migrated", "Sheet1", "Non-Migrated", "Sheet2")

For Count = 0 To UBound(MyArray) - 1
On Error Resume Next
ActiveWorkbook.Sheets(MyArray(Count)).Activate
If ActiveSheet.Name = MyArray(Count) Then Exit For
Next

On Error GoTo 0

Set WrkSht = ActiveSheet
End Sub