I have an macro enabled excel workbook with the following code
Option Explicit
Public dTime As Date
Sub ValueStore()
Dim dTime As Date
Worksheets("Change").Columns(1).Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Change!C3").Value
Worksheets("Change").Columns(1).Cells(4, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Change!C4").Value
Worksheets("Change").Columns(1).Cells(5, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Change!C5").Value
Worksheets("Charts").Columns(1).Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Charts!D1").Value
Worksheets("Charts").Columns(1).Cells(2, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Charts!D2").Value
Worksheets("Charts").Columns(1).Cells(3, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Charts!D3").Value
Worksheets("Charts").Columns(1).Cells(4, Columns.Count).End(xlToLeft).Offset(0, 1).Value = Range("Charts!D4").Value
Call StartTimer
End Sub
Sub StartTimer()
dTime = Now + TimeValue("00:02:00")
Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime dTime, "ValueStore", Schedule:=False
End Sub
It works perfectly when it is the only open excel woorkbook on my PC.
When I open any other normal or macro enabled excel woorkbook on my pc the error which reflects is
Run-time error '1004'.
Method 'Range' of object' _ Global' failed
I would really appreciate if I can get a solution for this
Thank you
Viral Goradia