Guys here's the problem. I have tried both of these methods. It keeps throwing a Object Variable or With Block Not Set. Here is a look at the current IDE.


Private Sub Worksheet_Activate()
If LastWS.CodeName = "" Then Exit Sub
MsgBox LastWS.CodeName
For x = 1 to 3
Sheet1.Range("A" & x).Value = LastWS.Range("A" & x).Value
Sheet1.Range("B" & x).Value = LastWS.Range("B" & x).Value
Sheet1.Range("C" & x).Value = LastWS.Range("C" & x).Value
Next x
End Sub

Public LastWS As Worksheet (Module 1)

Even with MsgBox LastWS.Codename alone in the sub it throws the same error.