Name Range Format

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hello Experts

I have a macro code that combines a name range (which is a date) with the
word "Total". The only problem with this is that the new word is not in the
format I want. The combined word looks like this:

09/01/2007 Total

I want it to look like this.

Sept 2007 Total

I attached my code below. Can anyone help?

David

Sub Trim1()
For Each c In Worksheets("CoverSheet").Range("c27:c32").Cells
If (c.Value) Like "*" Then c.Value = Range("Production_Month") & " "
& "Total"

Next
End Sub
 
Try

If (c.Value) Like "*" Then c.Value = Format(Range("Production_Month"),"mmm
yy") & " " & "Total"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)
 
Chip-

You are awesome!!! Thanks!!!!!!!!!

Chip Pearson said:
Try

If (c.Value) Like "*" Then c.Value = Format(Range("Production_Month"),"mmm
yy") & " " & "Total"


--
Cordially,
Chip Pearson
Microsoft MVP - Excel, 10 Years
Pearson Software Consulting
www.cpearson.com
(email on the web site)
Click to expand...
 
Back
Top