Can an object be named with the time or date + time

[teamsimpson]

Does anyone know any code (or if it can be done) that will let me use the .Name = "get time off clock" to name the object.That way if my code is run several times, the objects are named as a time, so each name will be different so i won't have to write code that has to check the name before it renames the object.
Regards
Mike

 

[Andrew Poulsom]

Even if this were possible I am not sure that it would serve your purpose. What is your code doing? Post a snippet.

 

[teamsimpson]

Sub Macro2()

' Keyboard Shortcut: Ctrl+q


Sheets("TEST").OLEObjects.Add(FileName:="h:data.xls", Link:=False).Name = "new"

With Sheets("TEST").OLEObjects("new")
.Left = 200
.Top = 200
.Width = 40
.Height = 25

ActiveSheet.Shapes("new").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 40
ActiveSheet.Shapes("new").Name = "data 1"

End With
Sheets("TEST").[a1].Activate
End Sub

 

[teamsimpson]

My code looks very clumsey, i would welcome any suggestions
Mike

 

[Mudface]

Repost of a question first asked here: -

http://216.92.17.166/board/viewtopic.php?topic=24420&forum=2&5

 

[Andrew Poulsom]

The best way to keep track of your shape is to assign it to an Object variable when you add it. Like this:

Sub Test()
    Dim MyShape As OLEObject
    Set MyShape = Sheets("TEST").OLEObjects.Add(Filename:="h:data.xls", Link:=False)
    With MyShape
        .Left = 200
        .Top = 200
        .Width = 40
        .Height = 25
        .ShapeRange.Fill.ForeColor.SchemeColor = 40
        .Name = "data 1"
    End With
    Sheets("TEST").[a1].Activate
End Sub