Macro that Fills Sequential numbers

[Guest]

As you see below I am trying to fill cells with "CSR1, CSR2..... How do I
right that without caling each cell?
Sheets("Team List").Select
Range("B2:B16").ClearContents
Range("B2").Value = "CSR1"
Range("B3").Value = "CSR2"
Range("B4").Value = "CSR3"
Range("B5").Value = "CSR4"
Range("B6").Value = "CSR5"

 

[Guest]

David,

Is this any good?

Sub liminal_Advertising()
Sheets("Team List").Select
x = 1
Dim myRange As Range
Set myRange = Range("B2:B16")
For Each c In myRange
c.Value = "CSR" & x
x = x + 1
Next
End Sub

Mike

 

[Guest]

Thank you that is just waht I needed.....

David,

Is this any good?

Sub liminal_Advertising()
Sheets("Team List").Select
x = 1
Dim myRange As Range
Set myRange = Range("B2:B16")
For Each c In myRange
c.Value = "CSR" & x
x = x + 1
Next
End Sub

Mike

 

[JE McGimpsey]

One way:

With Sheets("Team List").Range("B2")
.Value = "CSR1"
.AutoFill Destination:=.Resize(15, 1)
End With