What I'm trying to do is append the row number to the string. This section of code creates numerous rows based on the number of labels desired.
Basically in column A is the project number which is constant, but I would like to add (1/3),(2/3), (3/3)
ie.
9999-999 (1/2)
9999-999 (2/2)
Any thoughts?
Thanks in advance!
n = CLng(InputBox("Please enter the number of labels you would like to create"))
With Sheets("Labels")
.Range("A1:Z65536").ClearContents
.Range("A1:A" & n).Value = (project_number & "" & "(" & .Row.Address & "/" & number_labels & ")")
.Range("B1:B" & n).Value = Customer
.Range("C1:C" & n).Value = daterec
.Range("D1:D" & n).Value = Description
.Range("E1:E" & n).Value = datedisposal
End With
Bookmarks