Help applying Macro to the whole Column

[Alvaroro84]

Instead of applying it into on cell what can i change to apply it to the whole column?

Sub Return_nth_character()
'declare variables
Dim ws As Worksheet
Set ws = Worksheets("sheet4")
'extract the 3rd character from a string
ws.Range("b1").EntireRow.Select = Mid(ws.Range("A1"), 3, 16)

End Sub

 

[Joe4]

Your code returns an error for me (you do not use a "Select" command in a line of code where you are setting a value equal to something).

Is this what you are looking for?

Sub Return_nth_character()
'declare variables
Dim ws As Worksheet
Set ws = Worksheets("sheet4")
Dim lr As Long

'find last row in column A with data
lr = ws.Cells(Rows.Count, "A").End(xlUp).Row

'extract the 3rd character from a string
ws.Range("B1:B" & lr).Formula = "=Mid(A1, 3, 16)"
ws.Range("B1:B" & lr).Value = ws.Range("B1:B" & lr).Value

End Sub

 

[Alvaroro84]

I accidently added ".EntireRow.Select" to see if it would do the whole row and that's why it ran an error. However, what you provided is exactly what I was looking for Thank you!

 

[Joe4]

You are welcome!