Finding Active Workbook and Worksheet

[tlawson1]

Hi All

I have a UserForm with its properties Show Modal set to False so the user can use another workbook while my UserForm is active.

For example they may have Book2 open and be on Sheet1

Once my code has run I wish to return to their active workbook and worksheet but I am unsure how to Dimension this

Dim myCheck as ????
myCheck =Application.ActiveWorkbook.ActiveSheet.Name

????? Any help please

 

[njimack]

Something like this....

Dim myBook As String
Dim mySheet As String

myBook = ActiveWorkbook.Name
mySheet = ActiveSheet.Name

Worksheets(myBook).Activate
Sheets(mySheet).Select

 

[tlawson1]

Thanks for the help

Seems so easy when you know how.

 

[jim may]

You can return to the Workbook your Code is running in by referencing "ThisWorkbook".

Thisworkbook.Worksheets("Sheet1").select

 

[tlawson1]

This is what I have been doing....

Application.ThisWorkbook....To use my code but didn't know how to return to the workbook the user was currently on.

Will be writing all this down for future use though

Thanks