How do I activate my code in other sheet?

[Ericng]

Hi,

My code can only be activated when I am on a specific sheet ("Data"), how do I enable the code to be activated on other sheet ("KMV-Merton").


Option Explicit
Private Const dmax = 250

Sub LatestDate()
'Find the last used row in a Column: column A in this example
Dim LastRow As Long
With Worksheets("Data")
LastRow = .Cells(.Rows.Count, "A").End(xlUp).row
End With

'CopyPaste the value of recent trading day dates
With Worksheets("Data")
.Range(Cells((LastRow - dmax + 1), 1), Cells(LastRow, 1)).Copy
End With
With Worksheets("KMV-Merton")
.Cells(2, "H").PasteSpecial xlPasteValuesAndNumberFormats
End With
End Sub

[sky1in5]

Please Login or Register  to view this content.

[Ericng]

Hi sky1in5,

Thank you very much for your reply.

I tried to add in the suggested code, but the debugging msg
appears on "Range(Cells((LastRow - dmax + 1), 1), Cells(LastRow, 1)).Copy" with yellow highlight

Sorry I am a beginner here, please help me further. I might misinterpret your post.

Thanks.

[jeffreybrown]

We would love to continue to help you with your query, but first, before we can proceed, please see Forum Rule #3 about code tags and adjust accordingly...

[sky1in5]

Hi Jeffreybrown,

I dont see there is a need to deleted my post because

1st : User is not online, therefore he/she is unable to edit post or post new reply.
2nd : With a minor coding tag issue, are you going to stop people from helping them to solve their problem

Sorry if i offended you, but i am trying to understand why am i getting a warning private message instead of a normal private message telling me the issue. Thank you.