Dialog Box

[Cindy]

I'm pretty new to this and I can't figure out what I'm
doing wrong. I'm trying to let the user pick a font and
then change several worksheets accordingly.

This is what I have tried and all its doing is changing
the row and column numbers to the font that is picked.
Very weird, I didn't even know you could do that!

Any help will be greatly appreciated.

Sub Font()
'
' ChangeFont Macro
' Macro recorded 05/12/2004 by Cindy Jordan
'
Dim dlgAnswer As Boolean
Dim objFontChoice As Font
Sheets("MedRates").Select
Range("a1").Select
dlgAnswer = Application.Dialogs(xlDialogFont).Show
If dlgAnswer = False Then Exit Sub
Set objFontChoice = Selection.Font

Sheets(Array
("Coversheet", "MedRates", "MedBenefits", "DentalRates", _
"DentalBenefits", "STD", "LTD", "Life")).Select
Sheets("MedRates").Select
Range("a1:ax1").Select
With Selection.Font
.Name = objFontChoice.Name
End With
Range("A1").Select
Sheets("MedRates").Select

End Sub

 

[Dick Kusleika]

Cindy

This is what I have tried and all its doing is changing
the row and column numbers to the font that is picked.
Very weird, I didn't even know you could do that!

Me either. Use this

dlgAnswer = Application.Dialogs(xlDialogFontProperties).Show