Sub PUTTY()

    i = 6
    While (ActiveSheet.Cells(i, 1) <> "")
'Retrieve IP address
    StrCompAddress = ActiveSheet.Cells(i, 1)
    i = i + 1
    Wend
    j = 6
    While (ActiveSheet.Cells(i, 10) <> "")
    UserName = ActiveSheet.Cells(j, 10)
    Wend
    k = 6
    While (ActiveSheet.Cells(i, 11) <> "")
    password = ActiveSheet.Cells(j, 10)
    Wend
 Dim RetVal
 RetVal = Shell("C:UsersPublicDesktopputty.exe " & StrCompAddress & " " & UserName & " " & password & " ")
   End Sub