hi
please try this code.
Sub textb_ed()
Dim s, e As Integer
Dim rng As Range
Set rng = Application.InputBox("Select a Rang", Type:=8)
On Error GoTo ErrorHandler
s = InputBox("Enter the starting tb no")
e = InputBox("Enter the ending tb no")
For j = s To e
a = "TextBox " & j
ActiveSheet.Shapes(
update macro
Sub test1()
Dim lastrow As Long, xTitleID, I As Long
Dim workrng As Range
Set workrng = Application.Selection
Set workrng = Application.InputBox("Range", xTitleID, workrng.Address,
Type:=8)
lastrow = Cells(65536, workrng.Column + 1).End(xlUp).Row + 1
For
