Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Dialog Box
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Dialog Box
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 -- Dick Kusleika MVP - Excel Excel Blog - Daily Dose of Excel www.dicks-blog.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Dialog Pop Up Box | Excel Discussion (Misc queries) | |||
How to delete the "Insert Function Dialog Box" (dialog box only)? | Excel Worksheet Functions | |||
dialog box | Excel Discussion (Misc queries) | |||
Dialog Box | Excel Discussion (Misc queries) | |||
Dialog box on the fly. | Excel Programming |