How can I get each worksheet tab name to pull from cell C3?

[BZ]

Is there anyway to get Sheet 1's name to pull whatever is in cell C3 and
change the "Sheet 1" title to that cells content?

 

[Gary''s Student]

Run this small macro:

Sub nameit()
For Each ws In Worksheets
ws.Name = ws.Range("C3").Value
Next
End Sub