VBA Code Not Looping Through Every Tab

[stlpony]

Have about ~100 tabs here ... This code seems to only work on one sheet at a time. Any tips? Thanks!

Sub CopyNameCelltoSpecificSpot()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
Range("A5").Copy Range("A46")
Next
End Sub

 

[Fluff]

Try

ws.Range("A5").Copy ws.Range("A46")

 

[stlpony]

Try

ws.Range("A5").Copy ws.Range("A46")

Ahhh so simple but so hard. Thank you!

 

[Fluff]

Glad to help & thanks for the feedback