VBA how to use a dynamic sheetname within the sub

[quarna]

Hi

Option Explicit

Sub button1_click()

    Call test

End Sub

Sub button2_click()

    Call test

End Sub

Private Sub test()

    Ark1.Range("A1").Value = "Box1"
    
End Sub

Can i use the two buttons to run test sub, and when button1 is pressed then "ark1" is used, but when button2 is pressed then i want to reference sheet "ark2".
But i want to use the same code.

So can i replace ark1 with ark2 within the code somehow.?

This is a simplified version of what im working with but this is in essence my issue. Maybe it can be done with a function or something.

 

[mikerickson]

You can write the test sub to take an argument.

Sub Test(sheetName as String)
    ThisWorkbook.Sheets(sheetName).Range("A1").Value = "Box 1"
End Sub

Sub Button1_Click()
    Call test("ark1")
End Sub

Sub Button2_Click()
    Call test("ark2")
End Sub

 

[bebo021999]

With sheet1 & sheet2 (With ark1 or ark2 do the same)

Public num As String
Sub Button1_Click()
num = Replace(ActiveSheet.Buttons("button 1").Text, "Button ", "")
test num
End Sub
Sub Button2_Click()
num = Replace(ActiveSheet.Buttons("button 2").Text, "Button ", "")
test num
End Sub
Sub test(num As String)
Sheets("Sheet" & num).Activate
ActiveSheet.Range("A1").Value = "Box" & num
End Sub

 

[quarna]

You can write the test sub to take an argument.

Sub Test(sheetName as String)
    ThisWorkbook.Sheets(sheetName).Range("A1").Value = "Box 1"
End Sub

Sub Button1_Click()
    Call test("ark1")
End Sub

Sub Button2_Click()
    Call test("ark2")
End Sub

Amazing, thanks alot.
What a cool thing to pass arguments in the sub, learned something new..