VBA - searching for elements of an array in active sheet

[gavclark86]

Hi all, first time posting so apologies if I breach posting etiquette.

I'm trying to write a macro which will find members of an array on a sheet, highlight the column and then change the format of the column, what I have at the moment is:

Dim datearray(1 To 3) As String

datearray(1) = "Date1"
datearray(2) = "Date2"
datearray(3) = "Date3"

For x = LBound(datearray) To UBound(datearray)
Cells.Find(What:=x).Activate
ActiveCell.EntireColumn.Select
Selection.NumberFormat = "m/d/yyyy"
Next x

End Sub

The problem is, when I "F8" my way through the code, it doesn't seem to be finding the members of the array in the sheet. Can anyone help me with this?

I'm a rookie at VBA so apologies if it's something obvious!

 

[Andrew Poulsom]

Does this work for you?

Cells.Find(What:=datearray(x)).Activate

 

[VoG]

Maybe like this

Dim datearray(1 To 3) As String

datearray(1) = "Date1"
datearray(2) = "Date2"
datearray(3) = "Date3"

For x = LBound(datearray) To UBound(datearray)
Cells.Find(What:=datearray(x), LookIn:=xlValues, lookat:=xlWhole).EntireColumn.NumberFormat = "m/d/yyyy"
Next x

End Sub

 

[gavclark86]

Thanks for the quick responses guys! Andrew's code fixed the problem, thanks for the help!