Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
Sub InsereFotografia() On Error Resume Next Dim result() As String result = Split(ActiveCell.Value, "-") Dim num As Long num = result(0) ActiveCell.Offset(-2, 0).Select ActiveSheet.Pictures.Insert( _ "P:\Backup Montagem Final\ARQUIVO\Agenda MF 2011\FOTOS MF 2011\000" & num & ".JPG").Select End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.