Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Good day,
Will like to use these 2 codes in the work sheet. It gives ambigous error in the 2nd code 1st line - Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Kindly suggest what to write in tht line or how to use these 2 codes together.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    'another method is to have it show if a cell that is formatted as a date is selected...see below
    If Target.NumberFormat = "m/d/yy;@" Then
        CalendarFrm.Show
    End If
      
    'another method is using Select Case...see below
    Select Case Target.NumberFormat
        Case Is = "m/d/yy", "m/d/yyyy", "m/d/yy", "mm/dd/yy", "yyyy-mmm-dd", "dd-mmm-yy"
        CalendarFrm.Show
        'Case Else
        '    MsgBox "Not a valid date format!"
    End Select
End Sub
......................................................................................................................
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ScrollArea = "A1:AX252"

End Sub

Thanks in advance
whitesapphire24

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.