Hi
Consider the following. Note I move the file to the end of the file in line with my code.
Option Explicit
Sub getAllValues2()
Dim i As Integer
Dim j As Integer
Dim ar As Variant
ar = [{"G3", "A1", "C4", "C3", "C5", "C5", "A28", "J3", "J4"}]
For i = 1 To Worksheets.Count - 1...