Hi

Maybe this is what you is looking for:

Sub test()
If Sheets("Sheet1").Range("A1").Value = True Then
Range("A1").Offset(0, 6).Value = ThisWorkbook.Name
End If
End Sub

Regards Per

"ytayta555" skrev i meddelelsen
...
HI ALL , HAVE A GOOD TIME !

Please for help me with the line of VBA code
which if mycell in myrange value = TRUE , to
return me( 6 cells in right of this cell ,same row )
the name of current workbook .

Thanks very much for your time