Existing working macro needs edit to be added

[ipbr21054]

Hi all,

I have the following macro but stuck with adding an edit to it

Sub RoundedRectangle5_Click()HondaParts.MyPartNumber.Value = ActiveCell.Value
HondaParts.Show
End Sub

When the macro runs i would like the value in the cell to be forced to upper case,value will be Numbers & Letters.
I added this to the macro but did not work.

.Range("B13").Value = UCase

Another request would be to add a space line when macro is run.

Example
So i would enter in cell B13 72147s9ae01

The macro should change to uppercase & add the space like so,
72147-S9A-E01

The form would then open and the value in cell B13 would be recognised.

Currently staff forget to either type in capitals or forget the space line -

Many thanks

 

[ranman256]

.Range("B13").Value = UCase(Range("B13").Value)

 

[ipbr21054]

Hi,
Like this,as it gives an error.

Sub RoundedRectangle5_Click().Range("B13").Value = UCase(Range("B13").Value)
HondaParts.MyPartNumber.Value = ActiveCell.Value
HondaParts.Show
End Sub