Code works however, I need it to only bring in the values, not the formula

[quintin]

I have vba code that matches up to a list of worksheets in a column, in column B i need the code (which I have, however just want the values) to relate to "D1". Please see the code I have already. Many Thnx

Private Sub CommandButton3_Click()

For Each wkSht In Sheets

For Each cell In Sheets("SHEETSNAMES").Range("A1:A200")

If cell.Value = wkSht.Name Then

wkSht.Range("D1").Copy Destination:=cell.Offset(0, 1)

Application.CutCopyMode = False

End If

Next cell

Next wkSht

End Sub[code]

 

[MARK858]

Maybe..

Private Sub CommandButton3_Click()

    For Each wkSht In Sheets

        For Each cell In Sheets("SHEETSNAMES").Range("A1:A200")

            If cell.Value = wkSht.Name Then

                'wkSht.Range("D1").Copy Destination:=cell.Offset(0, 1)
                
                cell.Offset(0, 1).Value = wkSht.Range("D1").Value
                
                'Application.CutCopyMode = False

            End If

        Next cell

    Next wkSht

End Sub

 

[quintin]

I tried that and unfortunately it did not work

 

[MARK858]

I tried that and unfortunately it did not work

In what way?

 

[quintin]

Okay thank you, I just got it to work, very happy now, once again thx