As for the second issue try something like this:

Dim DataEntry As Worksheet
Set DataEntry = Workbook("workbookNameHere.xls").Worksheet("Data
Entry")
'OR if data entry is active:
'Set DataEntry = ActiveWorkbook.ActiveSheet
DataEntry.Activate

HTH--Lonnie M.