VBA：代码审查

我是新来的macros观macros观，但有基本的了解。

我试图从Sheet1中find一个最大值，在那里我有代码，但想知道如果我从我的工作簿中的其他任何工作表运行此代码，我如何得到相同的结果。

Sub FindMaxDate() Set Worksheet = Sheets("Sheet1") Max_date = Application.WorksheetFunction.Max(Columns("A")) MsgBox CDate(Max_date) End Sub 

例如：我有Sheet1.Range（“A：A”）date提交和最大date可用有01.01.2018（Cod会给我相同的值），但如果我在Sheet2上运行此代码，它将从Sheet2中获取价值并展示给我“12:00:00 AM”。

有人请帮我纠正这个代码，以便它始终显示Sheet1（01.01.2018）的最大值，

希望你们得到我的任命。 否则请让我知道。

谢谢

Answer 1

 Sub FindMaxDate() Set Worksheet = Sheets("Sheet1") Max_date = Application.WorksheetFunction.Max(Worksheet.Columns("A")) MsgBox CDate(Max_date) End Sub