In the following code the ActiveCell is always empty.

If the computer reads the WorkBook, where is the data in memory?

Option Explicit
Sub TestIntl()

Dim wkst As Worksheet
Dim wslb As Worksheet
Dim lastRow As Long

lastRow = Range("L" & Rows.Count).End(xlUp).Row
Range("L1").Select

Set wkst = ActiveSheet
Do Until ActiveCell.Row lastRow
MsgBox ActiveCell.Value ' Always Empty
ActiveCell.Offset(1, 0).Activate ' Move to Next Row
Loop

lastRow = Range("L" & Rows.Count).End(xlUp).Row
Range("L1").Select

Set wslb = ActiveSheet
Do Until ActiveCell.Row lastRow
MsgBox ActiveCell.Value ' Always Empty
ActiveCell.Offset(1, 0).Activate ' Move to Next Row
Loop

End Sub

In the example above if I did not have a:

Set wkst = ActiveSheet or
Set wslb = ActiveSheet

This routine works. When I add the two lines above the ActiveCell is empty.

I am trying to understand how Excel works and things like this confuse me.
In VB6 if I create a skelaton file and activate it, there is data in it.

Is this the same concept in Excel?

Thanks For the Help!

John