VBA function to turn all capitols in a cell

[Philosophaie]

Is there a VBA function that will make all letters in a cell capitols?

 

[steve the fish]

Try:

Sub upper()
With Range("A1")
    .Value = UCase(.Value)
End With
End Sub

 

[jim may]

UCase(YourCellReference), like UCase(Activecell)

 

[steve the fish]

In fact just in case you have formula producing the words you could use .Formula instead of .Value

 

[Peter_SSs]

.. or if users are entering data manually, you can force them to use upper case in the first place with Data Validation like this*
Data Validation -> Settings tab -> Allow: Custom -> Formula: =EXACT(A1,UPPER(A1)) -> (Optional add a message on the Error Alert tab) -> OK

* Rider that Data Validation is easily defeated by Copy/Paste.

In fact just in case you have formula producing the words you could use .Formula instead of .Value

I'm not following that?

 

[steve the fish]

Lets say the cell A1 houses =IF(B1="","boo",""). If B1 was empy then A1 would say boo. If the OP used my original macro then boo would read BOO but the formula would gone. Using .Formula the cell would say =IF(B1="","BOO",""). Ill just test that!

 

[Peter_SSs]

Lets say the cell A1 houses =IF(B1="","boo",""). If B1 was empy then A1 would say boo. If the OP used my original macro then boo would read BOO but the formula would gone. Using .Formula the cell would say =IF(B1="","BOO",""). Ill just test that!

Ah, I understand where you are coming from.

However, what if A1 housed the formula
=IF(B1="","",B1)
and B1 housed the text "boo"?

 

[steve the fish]

I suppose this could be solved by using UPPER(B1)? Then the formula are still preserved.

 

[Peter_SSs]

I suppose this could be solved by using UPPER(B1)? Then the formula are still preserved.

Possibly, but we are probably at the point where we need some more info from the OP about just what they have and what they are trying to achieve.