Seeing the example may make more sense

MyWBConvertor.Activate
Dim MyPath3 As String, MyRange3 As Range
Dim MyPath4 As String, MyRange4 As Range
MyPath3 = MyWBConvertor.Path
MyPath4 = MyWBConvertor.Path
Set MyRange3 = MyWBConvertor.ActiveSheet.Range("D25") '2 months ago
Set MyRange4 = MyWBConvertor.ActiveSheet.Range("C26") 'Year

MyWBConvertor.Activate
Dim MyPath As String, MyRange As Range
Dim MyPath2 As String, MyRange2 As Range
MyPath = MyWBConvertor.Path
MyPath2 = MyWBConvertor.Path
Set MyRange = MyWBConvertor.ActiveSheet.Range("C25") ' Last month
Set MyRange2 = MyWBConvertor.ActiveSheet.Range("C26") ' Year

Yes, trying it would tell you that.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Simon" <(E-Mail Removed)> wrote in message
news:bcb1fc63-95b8-4850-b12f-(E-Mail Removed)...
> Seeing the example may make more sense
>
> MyWBConvertor.Activate
> Dim MyPath3 As String, MyRange3 As Range
> Dim MyPath4 As String, MyRange4 As Range
> MyPath3 = MyWBConvertor.Path
> MyPath4 = MyWBConvertor.Path
> Set MyRange3 = MyWBConvertor.ActiveSheet.Range("D25") '2 months ago
> Set MyRange4 = MyWBConvertor.ActiveSheet.Range("C26") 'Year
>
> MyWBConvertor.Activate
> Dim MyPath As String, MyRange As Range
> Dim MyPath2 As String, MyRange2 As Range
> MyPath = MyWBConvertor.Path
> MyPath2 = MyWBConvertor.Path
> Set MyRange = MyWBConvertor.ActiveSheet.Range("C25") ' Last month
> Set MyRange2 = MyWBConvertor.ActiveSheet.Range("C26") ' Year