Propercase - macro so that it will change all names in a column to Proper case

[nazaroff]

Can someone tell me or correct this - I want to execute this macro so that it will change all names in a column to Proper case - this formula gives me an error??

Sub ProperSelection()
For Each cell In Selection IF Not cell.HasFormula Then cell.Value=Application.WorksheetFunction.Proper(Cell.Value) End If Next cell
End Sub

 

[MARK858]

Does your code look like the below in reality?

Sub ProperSelection()
For Each cell In Selection
  If Not cell.HasFormula Then
    cell.Value = Application.WorksheetFunction.Proper(Cell.Value)
  End If
Next cell
End Sub

 

[ranman256]

Sub ProperSelection()
Dim cell As Range

For Each cell In Selection
   If Not cell.HasFormula Then cell.Value = Application.WorksheetFunction.Proper(cell.Value)
Next cell
End Sub

 

[nazaroff]

Does your code look like the below in reality?

Sub ProperSelection()
For Each cell In Selection
  If Not cell.HasFormula Then
    cell.Value = Application.WorksheetFunction.Proper(Cell.Value)
  End If
Next cell
End Sub

Thanks for your response! - I got it

 

[nazaroff]

Sub ProperSelection()
Dim cell As Range

For Each cell In Selection
   If Not cell.HasFormula Then cell.Value = Application.WorksheetFunction.Proper(cell.Value)
Next cell
End Sub

Thank You!!

 

[MARK858]

Happy we helped

As you can see by the post by @ranman256 if you are only doing a single action then you can do away with the separate End If and lose 2 lines, just note that you can only do this with one action not multiple actions (bar using some ugly colons to replace the linefeeds)