Enter Sheet name to destination cell

Hello all,

I would like a button in (Sheet2) to do this operation when clicked: jump to (Sheet1) and enter Sheet2's name into cell B4, where this button is used in many sheets similar to Sheet2(aka2,3,4,5,6...) that all do the same to jump to sheet 1.

Private Sub DashboardButton1_Click()
Dim ws As Worksheet

    With Sheets("Dashboard")
        .Select
        .Range("B4").Formula = ws.Name
        .Range("B4").Select
    End With

I think I just need to know how to properly call the sheetname variable... the above code does not work.

Thanks for your help in advance!