I have the following code in my UserForm and when I press the cmdCountRecords button it shows in Label15 the total number of records I have in my dB. Is there a way to revise this code to show the total number of records real time without pressing a button?

Private Sub cmdCountRecords_Click()
Dim count As Integer
Sheet1.Select
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
PhoneList.Label15.Caption = "" & Selection.Cells.count
Range("B9").Select
End Sub