Example to Read Cell Values using VBA

Sub getCellValues() 'Example to Read Cell Values
Dim value As Integer
Worksheets("sheet1").Range("N6").Activate
value = ActiveCell.value
MsgBox value
Worksheets("sheet1").Range("P4").Activate
value = ActiveCell.value
MsgBox value
End Sub