Declare a 2 dimensional array with integers and strings

[USAMax]

I need to declare a two dimensional array that will return the Row and the cell's string value. My only solution is to return the row as a string like this.

Public GlobalArray(2, 100) As String

Can someone help me get more control than this? Maybe I should just declare it as a variant but this might open it up for problems later.

 

[anvg]

Public Type myType
    rowId As Long
    cellStr As String
End Type

Public GlobalArray(100) As myType

Public Sub dosmb()
    GlobalArray(1).cellStr = "this is a string"
    GlobalArray(1).rowId = 1
End Sub

Regards,

 

[USAMax]

Thank you anvg, the first time I received a direct answer that was correct and elegant. I have to read up on this because I must have completely missed this one in class.

Beautiful work!

Thank you,

 

[anvg]

You are welcome!