Runs on one but not another

[tourless]

Hi Folks,

I've got this code...

Option Explicit

Sub TransferToMain()
    Dim sourceWB As Workbook, destWB As Workbook
    Dim fName As String, strName As String
    Dim weDate As Date
    Dim iWeekDay As Integer
    Dim LastRow As Long
    
    'Set Source & Copy Sheet To Production File
    Set sourceWB = ThisWorkbook
    'Set date
    weDate = Date
    fName = "myfile"
    Set destWB = Workbooks.Open("myotherfile")
    
    'Call ReportOpen
    
    'Copy the template
    sourceWB.Sheets("Template").Copy After:=destWB.Sheets(destWB.Sheets.Count)
    
    iWeekDay = Weekday(Now(), vbSunday)
    weDate = Format(Now - (iWeekDay - 1), "mm-dd-yyyy")
    
    For Each ws In Worksheets
        If ws.Name = weDate Then
            Application.DisplayAlerts = False
            ws.Delete
            Application.DisplayAlerts = True
        Else
        End If
    Next
 
    ActiveSheet.Name = Format(weDate, "mm-dd-yyyy")   
End Sub

The first thing you might notice is that ws is not actually declared. Curiously it runs on my machine. If I try to run it on another machine, it tells me it's not declared so I declare it as 'Dim ws as Worksheet'. No problem. Then I get a type mismatch on 'If ws.Name = weDate Then', which I understand.

My question is why would the code run successfully on one machine and not another?

 

[RoryA]

It shouldn't run on your machine either since you have Option Explicit at the top of the code module. I can't see any good reason for a type mismatch there since a date should be coercible to a string without an explicit CStr call.

 

[tourless]

Odd.

Anyway I changed the weDate declaration to a string, declared ws, and changed my For Each from In Worksheet to In destWB.Worksheets and it's working.