How to Make Current Open Worksheet as Active

Hi, momer,

you should make clear if Sheet2 is the name displayed on the worksheet tab or the codename for the sheet In your code you have both used Worksheets(2) which would mean the second worksheet in the collection of worksheets as well as Worksheets("Sheet2"). So you could replace

ThisWorkbook.Sheets(strSheetName)

by

ThisWorkbook.Sheets("Sheet2")

Ciao,
Holger