Get Font Color Dialog

[Zone]

I want my macro to open the Font Color Dialog, allow the user to select
a color, and save the color to a variable. Excel 2002. Thanks! James

 

[acampbell]

James,

Public MyColor As Integer
Sub StorColor()
Application.Dialogs(xlDialogFormatFont).Show
MyColor = ActiveCell.Font.ColorIndex
End Sub

 

[Zone]

Thanks much!

James,

Public MyColor As Integer
Sub StorColor()
Application.Dialogs(xlDialogFormatFont).Show
MyColor = ActiveCell.Font.ColorIndex
End Sub