sub mac1()
     Dim num as integer
    For num = 1 to 50
       A = num * 2
       cells (1,1) = A
      MsgBox "The current values are " & num & " and " & A
  Next num
end sub