Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Address <> "$A$1" Then Exit Sub
' initializing variables
Dim d_Current_Date As Date
Dim s_Filename1 As String
Dim s_Filename2 As String
Dim s_Filename3 As String
Rem *setting date variable
d_Current_Date = Workbooks("BuffaloWeeklyView.xls").Names("ReportDate").RefersToRange.Value
Rem *current sales month
s_Filename1 = "\Sales\Sales_" + Format(d_Current_Date, "mmmm") + "_" + Format(d_Current_Date, "yyyy") + ".xls"
Rem *testing to see if current sales month is open
If Not WorkbookOpen(s_Filename1) Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & s_Filename1
End If
End Sub