VBA:代码审查

Question

我刚接触excel宏，但对此有基本的了解。

我正在尝试从Sheet1中查找最大值，在那里我有代码，但想知道如果我从工作簿上的任何其他工作表运行此代码，如何获得相同的结果。

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

例如:我在Sheet1.Range("A:A")上有日期文件，最大可用日期是01.01.2018 (Cod将给我相同的值)，但如果我在Sheet2上运行这段代码，它将从Sheet2中获取值并显示"12:00:00 AM“。

有人请帮我纠正这个代码，使它始终显示最大值从Sheet1 ( 01.01.2018 )

希望你们能听懂我的问题。否则请让我知道。

谢谢