Sub Begin_Click() Sheets(valueSheetName).Visible = True Sheets(valueSheetName).Select Sheets(readmeSheetName).Visible = False End Sub