Missing Data Validation

[dgrimm]

Ok I am trying to create a data validation via VBA coding and when I run it, it does not show. However when I close and reopen the file the drop down arrow appears. I am using the recorded code below. I have read through some other posts and the sheet is not protected, I am pulling from a list that is not protected using 2007.

This code is being called from a simple code for the sheet.

Sub ActiveUWDropDown()

Range("G8:P8").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = True
End With
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ActiveUWs"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With

' Range("G8:P8").Select
'
' With Selection.Font
' .Name = "Arial"
' .Size = 20
' .Strikethrough = False
' .Superscript = False
' .Subscript = False
' .OutlineFont = False
' .Shadow = False
' .Underline = xlUnderlineStyleNone
' .ColorIndex = xlAutomatic
' .TintAndShade = 0
' .ThemeFont = xlThemeFontNone
' End With
' With Selection
' .HorizontalAlignment = xlCenter
' .VerticalAlignment = xlBottom
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
' .IndentLevel = 0
' .ShrinkToFit = False
' .ReadingOrder = xlContext
' .MergeCells = True
' End With

Range("Q8").Select



Sheets(wsRC).Range("A2").Select

End Sub

Any ideas or tip or if you need more info please let me know.

Dave

 

[dgrimm]

Also, currently in the code I posted I have the font quoted out to see if that was the issue and it does not appear to be. So I also need the font with those effects to match the rest of the sheet. If there is a way to put it in the data validation part that would be awesome.