Linking Two Cells from Different Sheets

Hello I have very recently just started coding VBA. I am currently trying to make it so I can link two cells from different sheets together, so they will always be the same and update no matter which I edit. Specifically trying to get Cell A11 on sheet 1 to link with Cell B18 on sheet 2. I have code that works on the same page, however I cannot get it to work across sheets. The code I am currently using looks like this:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub


If Target.Address = "$S$1" Then
Application.EnableEvents = False
Range("$T$1") = Range("$S$1").Value
ElseIf Target.Address = "$T$1" Then
Range("$S$1") = Range("$T$1").Value
Application.EnableEvents = True
End If
End Sub

If anyone could give me tips on how I could set it up to have one cell on sheet 1 and one cell on sheet 2 I would appreciate it a lot! Thank you!

Administrative Note:

Welcome to the forum.

Your Excel version will be MS365, not 2106 - please update this in your profile.

We would very much like to help you with your query, however you need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code] [/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. As you are new, I have done it for you today.)

Try:

Option Explicit

' This code goes in the Workbook Class Module

'Hello I have very recently just started coding VBA. I am currently trying to make it
'so I can link two cells from different sheets together, so they will always be the
'same and update no matter which I edit. Specifically trying to get Cell A11 on sheet 1
'to link with Cell B18 on sheet 2. I have code that works on the same page, however I
'cannot get it to work across sheets. The code I am currently using looks like this:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheet1: Set sh2 = Sheet2

If Target.Count > 1 Then Exit Sub

Application.EnableEvents = False
If Sh.Name = sh1.Name And Target.Address = "$A$11" Then
    sh2.Range("$B$18") = sh1.Range("$A$11").Value
ElseIf Sh.Name = sh2.Name And Target.Address = "$B$18" Then
    sh1.Range("$A$11") = sh2.Range("$B$18")
End If
Application.EnableEvents = True

End Sub

Thanks for the rep.

Just for consistency …

Option Explicit

' This code goes in the Workbook Class Module

'Hello I have very recently just started coding VBA. I am currently trying to make it
'so I can link two cells from different sheets together, so they will always be the
'same and update no matter which I edit. Specifically trying to get Cell A11 on sheet 1
'to link with Cell B18 on sheet 2. I have code that works on the same page, however I
'cannot get it to work across sheets. The code I am currently using looks like this:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim sh1 As Worksheet, sh2 As Worksheet
Set sh1 = Sheet1: Set sh2 = Sheet2

If Target.Count > 1 Then Exit Sub

Application.EnableEvents = False
If Sh.Name = sh1.Name And Target.Address = "$A$11" Then
    sh2.Range("$B$18").Value = sh1.Range("$A$11").Value
ElseIf Sh.Name = sh2.Name And Target.Address = "$B$18" Then
    sh1.Range("$A$11").Value = sh2.Range("$B$18").Value
End If
Application.EnableEvents = True

End Sub

If you are satisfied with the solution(s) provided, please mark your thread as Solved.


New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save


You may also want to consider thanking those people who helped you by clicking on the little star at the bottom left of their reply to your question.