My colleague and I have came out with a VBA script that allows us to open multiple telnet sessions by pressing on excel Cell A1 but all windows are random in the location that they appear in. What we are trying to accomplish is having all windows arrange themselves side by side and if its possible also minimize any already opened windows so all that appears and is arranged is our telnet sessions. Here is the portion of the code that we would like to achieve this on.

If Not Intersect(Target, Range("A1")) Is Nothing Then
Cancel = True
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.110 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.130 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.140 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.160 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.170 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.180 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.190 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.200 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.210 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.220 " & A1, vbNormalFocus)
t = Shell("c:\windows\syswow64\telnet.exe 192.168.1.240 " & A1, vbNormalFocus)
End If
End Sub