Changin Cell Formats using VBA

Hey Guys.

I was wondering if someone could help me.

I am writing VB code for a budgetary and forecasting tool. I have the code
written to do the analysis, and then create a summary table with all the
information in it. However, the cells are formatted correctly so each time I
run it, I have make some cosmetic changes. I know you can do this using VB,
but I do not know how.

I need to:
- Change the format of a range from a number to currency.
- Change the format of a range from a number to a percentage.
- Add all around borders for a range.

I greatly appreciate any assistance you could provide.

Thanks,

-Michael

Using the Macro Recorder:


Sub Macro2()
Range("G1").Select
Selection.NumberFormat = "$#,##0.00"
Range("G2").Select
Selection.NumberFormat = "0.00%"


Range("G1:G2").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
--
Gary's Student


"Michael" wrote:

> Hey Guys.
>
> I was wondering if someone could help me.
>
> I am writing VB code for a budgetary and forecasting tool. I have the code
> written to do the analysis, and then create a summary table with all the
> information in it. However, the cells are formatted correctly so each time I
> run it, I have make some cosmetic changes. I know you can do this using VB,
> but I do not know how.
>
> I need to:
> - Change the format of a range from a number to currency.
> - Change the format of a range from a number to a percentage.
> - Add all around borders for a range.
>
> I greatly appreciate any assistance you could provide.
>
> Thanks,
>
> -Michael