Display Found Cell Address

I've got a workbook with a sheet for every month containing clients serviced in the specific month. I've found thread to complie a search box, which is great, but it gives me the value of the search. I need the search to take me to the sheet where the adress of the result is. Please see below the code for the search box i used.


Private Sub CommandButton1_Click()
Dim ws As Worksheet

Dim cl As Range, rng As Range
For Each ws In ActiveWorkbook.Worksheets

Set rng = ws.UsedRange
With rng
Set cl = .Find(Me.TextBox1.Value, LookIn:=xlValues)

If Not cl Is Nothing Then
Label1().Caption = (cl.Offset.Value)


End If
End With
Next ws
End Sub