How to get the Interior.Color value in one cell to change the Interior.color value of a different cell

[Computerman]

I am writing code to have multiple worksheets update a master worksheet and need to find a way to have the Interior.Color value in cells in one spreadsheet cause the corresponding cell in a different spreadsheet have the same Interior.color.
here is the code I have so far:

Option Explicit
Dim LastRow As Long
Dim wb As Workbook
Dim x As Integer
Dim y As Integer

Private Sub cmdSync_Click()
'determine the last row of the Master Worksheet
For Each wb In Application.Workbooks
    If wb.Name = "KAR process tracker - Master.xlsm" Then
        LastRow = wb.Sheets("Sheet1").Range("A65536").End(xlUp).Row
        For x = 2 To LastRow
            wb.Sheets("Sheet1").Range("A" & x).Value = Range("A" & x).Value
            wb.Sheets("Sheet1").Interior.Color = Range("A" & x).Interior.Color
            
        Next x
    End If
Next wb
End Sub

it fails on the Interior.color line. It is only checking for column A at the moment, once I get that working then I will check the rest of the rows, currently out to AF but that is likely to change.

thank you,
Computerman

 

[JoeMo]

"Interior" refers to the interior of a cell, but you haven't specified a cell (on the left of the equal sign) in the line that fails.

 

[JackDanIce]

This part here does not reference a cell object to determine it's interior.color, compare to the line above:

wb.Sheets("Sheet1").Range("A" & x).Value = Range("A" & x).Value
wb.Sheets("Sheet1").Range("A" & x).Interior.Color = Range("A" & x).Interior.Color

Your code assumes the active sheet the macro is executed from has the same number of rows in column A, Sheet1 of KAR Process tracker - Master.xlsm?

Are you trying to make the KAR Process tracker's interior cell colour in column A match that as the activesheet?

 

[Computerman]

DOH. How on earth did I miss that. it works perfectly now.
Thank you JoeMo and JackDanIce