Solved: Type Mismatch?

[Saladsamurai]

I don't get it :dunno 3 lines of code and things are already going south....what is it...Monday?

Sub RunMixedMetrics()


Dim MyPath As String
Dim WorkBookNames() As String

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath

WorkBookNames = Array("Mixed_20L6W Metrics.xls")


End Sub

[Saladsamurai]

Switched to Variant and all is well.

[Bob Phillips]

Why would you create an array with just one item?

[Saladsamurai]

Why would you create an array with just one item?

Because I'm an a$$hole. :)




Or I am just testing things at the moment.:*) :grinhalo:

[Bob Phillips]

This works without variant types



Sub RunMixedMetrics()

Dim MyPath As String
Dim WorkBookNames(1 To 100) As String

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath

WorkBookNames(1) = "Mixed_20L6W Metrics.xls"

End Sub

[Saladsamurai]

This works without variant types



Sub RunMixedMetrics()

Dim MyPath As String
Dim WorkBookNames(1 To 100) As String

MyPath = ActiveWorkbook.Path
'Debug.Print MyPath

WorkBookNames(1) = "Mixed_20L6W Metrics.xls"

End Sub


Yeah...I had hoped to initialize it all at once. But this makes me wonder why my OP didn't work? What is different other than the fact that you DImmed the Array from 1 to 100 ? Weird...