Selecting cells by variable

[Deadly48]

Dim Var3, Var6 As Integer

Var3 = 3
Var6 = 6
'
Range("A" & Var3 & ":" & "X" & Var6).Select

The above code selects cells in a range A3 to X6

How can I modify to select a group of individual cells ie. A3, B7, C10 where 3,7,10 are the variables.

Regards
Deadly48

 

[pgc01]

Hi Deadly48

Please try:

Sub SelectCells()

Dim Var3 As Integer, Var7 As Integer, Var10 As Integer

Var3 = 3
Var7 = 7
Var10 = 10

Application.Union(Range("A" & Var3), Range("B" & Var7), Range("C" & Var10)).Select
End Sub

Remark: Selecting in usually a bad programming practice. Most of the times it's unnecessary and inefficient. Can you not just refer to the range?

Hope this helps
PGC

 

[pgc01]

P. S. In your post you had

Dim Var3, Var6 As Integer

This declares Var3 as Variant and Var6 as Integer. if you want both as integer:

Dim Var3 As Integer , Var6 As Integer

 

[Deadly48]

Thanks PGC that works fine.