Declaring variables - Dimm'ing :)

[RawlinsCross]

Hi there... just a newbie getting my feet wet with programming in excel. I have a lot of declarations and I'm sure I can be declaring them in a better fashion. Can someone provide a more concise alternative to the following:

Dim MyChart As Chart
Dim ChartData1 As Range
Dim ChartData2 As Range
Dim ChartData3 As Range
Dim ChartData4 As Range
Dim ChartData5 As Range
Dim ChartData6 As Range
Dim ChartData7 As Range
Dim ChartData8 As Range
Dim ChartData9 As Range
Dim ChartIndex1 As Integer
Dim ChartIndex2 As Integer
Dim ChartIndex3 As Integer
Dim ChartIndex4 As Integer
Dim ChartIndex5 As Integer
Dim ChartIndex6 As Integer
Dim ChartIndex7 As Integer
Dim ChartIndex8 As Integer
Dim ChartIndex9 As Integer
Dim ChartIndex16 As Integer
Dim ChartName1 As String
Dim ChartName2 As String
Dim ChartName3 As String
Dim ChartName4 As String
Dim ChartName5 As String
Dim ChartName6 As String
Dim ChartName7 As String
Dim ChartName8 As String
Dim ChartName9 As String

 

[MARK858]

I don't think that there is much you can do with it as in VBA unlike some other languages you have to explicitly declare each variable.

You could do something like the below but doesn't save much.

Dim MyChart As Chart
Dim ChartData1 As Range, ChartData2 As Range, ChartData3 As Range
Dim ChartData4 As Range, ChartData5 As Range, ChartData6 As Range
Dim ChartData7 As Range, ChartData8 As Range, ChartData9 As Range
Dim ChartIndex1 As Integer, ChartIndex2 As Integer, ChartIndex3 As Integer
Dim ChartIndex4 As Integer, ChartIndex5 As Integer, ChartIndex6 As Integer
Dim ChartIndex7 As Integer, ChartIndex8 As Integer, ChartIndex9 As Integer
Dim ChartIndex16 As Integer
Dim ChartName1 As String, ChartName2 As String, ChartName3 As String
Dim ChartName4 As String, ChartName5 As String, ChartName6 As String
Dim ChartName7 As String, ChartName8 As String, ChartName9 As String

and you could change all the Integers to Longs as Integers are only long integers in modern systems which saves 3 letters per Integer variable

 

[Fluff]

Not sure if this is a good idea or not, but you can Dim variables like this

Sub dimtest()

Dim UsdRws(3) As Long

    UsdRws(1) = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
    UsdRws(2) = Sheet2.Range("A" & Rows.Count).End(xlUp).Row
    UsdRws(3) = Sheet3.Range("A" & Rows.Count).End(xlUp).Row
MsgBox UsdRws(1) & vbLf & UsdRws(2) & vbLf & UsdRws(3)


End Sub