Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Sub TextBox1_DblClick(Cancel as boolean)
Call CommonCode(Me.TextBox1)
End Sub
Sub TextBox2_DblClick(Cancel as boolean)
Call CommonCode(Me.TextBox2)
End Sub
Sub CommonCode(myBox)
:
' Your code here
:
End Sub
Sub TextBox1_DblClick(Cancel as boolean)
Call CommonCode(Me.TextBox1) Textbox1.TopLeftCell
End Sub
Sub TextBox2_DblClick(Cancel as boolean)
Call CommonCode(Me.TextBox2) Textbox2.TopLeftCell
End Sub
sub CommonCode(rng As Range)
select case rng.address
case "A1"
'process for the textbox in A1
...
case "A3"
'process for the textbox in A3
...
end select
end sub