variables

[MAMIBUSSOL]

i have 8 sheets of data, I would like to check cell A1 in each and place the date held into a variable can anyone help

 

[cstimart]

i have 8 sheets of data, I would like to check cell A1 in each and place the date held into a variable can anyone help

Try this

Sub get8dates()
Dim i As Integer
Dim datevariable(1 To 8) As Date

For i = 1 To 8
    datevariable(i) = Sheets(i).Range("A1")
Next i
End Sub