excel2016单元格里插入日历

Excel 2016 中单元格插入日历的实用方法
Excel 2016 是一款功能强大的电子表格工具，广泛应用于数据处理、财务分析、项目管理等多个领域。在日常工作中，用户常常需要处理日期数据，而插入日历则是提升数据可视化和分析效率的重要手段。本文将详细介绍 Excel 2016 中如何在单元格中插入日历，涵盖多种方法和技巧，确保用户能够灵活运用，满足不同场景的需求。
一、引入日历的重要性
在 Excel 2016 中，插入日历可以帮助用户更直观地查看日期信息，尤其适用于项目管理、财务记录和时间安排等场景。日历可以以表格形式展示日期，使信息更加清晰易懂。与单纯的日期列相比，日历提供了更丰富的可视化效果，有助于用户快速识别时间范围、分析时间间隔以及追踪任务进度。
此外，日历功能还支持自定义格式，用户可以根据需要调整日期的显示方式，比如显示月份、星期、节假日等信息，从而满足个性化需求。
二、插入日历的基本方法
在 Excel 2016 中，插入日历的最直接方式是使用“插入”菜单中的“日历”功能。以下是具体步骤：
1. 打开 Excel 文件：启动 Excel 2016，打开需要插入日历的工作表。
2. 选择单元格：在需要插入日历的单元格中点击，或选择一个区域。
3. 插入日历：在“插入”菜单中，找到“日历”选项，点击后会弹出日历窗口。
4. 选择日期范围：在日历窗口中选择需要显示的日期范围，点击“确定”。
5. 调整样式：如果需要，可以调整日历的字体、颜色、边框等样式，使日历更加美观。
这一方法适用于简单的日历插入，用户可以直接在单元格中看到日历内容。
三、使用公式插入日历
除了直接插入日历，Excel 2016 还支持通过公式动态生成日历，这对于需要频繁更新日期的场景非常实用。以下是使用公式插入日历的步骤：
1. 准备日期范围：在 Excel 中，创建一个日期范围，例如 A1 到 A10。
2. 输入公式：在 B1 单元格中输入公式 `=DATE(2023,1,1)`，表示从 2023 年 1 月 1 日开始。
3. 填充公式：将 B1 单元格的公式向下填充至 B10，生成一系列日期。
4. 使用日历功能：在“插入”菜单中，选择“日历”功能，将日期范围选为 A1:A10，然后点击“确定”。
通过公式生成的日历可以灵活调整起始日期和范围，适用于需要动态更新的场景。
四、使用 VBA 插入日历
对于高级用户，使用 VBA（Visual Basic for Applications）可以实现更复杂的日历插入功能。以下是使用 VBA 插入日历的步骤：
1. 打开 VBA 编辑器：在 Excel 中按 `ALT + F11` 打开 VBA 编辑器。
2. 插入模块：在 VBA 编辑器中，点击“插入” → “模块”，创建一个新的模块。
3. 编写代码：输入以下代码：
vba
Sub InsertCalendar()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")
Dim rng As Range
Set rng = ws.Range("A1:A10")

' 插入日历
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").Select
ws.Range("B1").