how to gave comments to multiple cells at a time

[gsrikanth]

Private Sub cmdMakeComment_Click()
Dim rng As Range

Set rng = ActiveSheet.Cells(4, 4)
Set rng = ActiveSheet.Cells(6, 5)
Set rng = ActiveSheet.Cells(7, 5)
Set rng = ActiveSheet.Cells(8, 4)
Set rng = ActiveSheet.Cells(9, 5)
Set rng = ActiveSheet.Cells(8, 5)
If rng.Comment Is Nothing Then rng.AddComment
rng.Comment.Text "It is now " & Format(Now)
End Sub