Option Explicit Dim wb1 As Workbook Dim shtDisplay As Worksheet Public Sub Main() Set wb1 = ActiveWorkbook Set shtDisplay = wb1.Worksheet("Sheet1")