*--- This will create a hyperlink of the *--- photo filename if a filename is present. *--- IF ! EMPTY(temp.fp_file) lcPicFile = ALLTRIM(temp.fp_file) + ".jpg" .COLUMNS[15].Hyperlinks.Add(.columns[15], lcPicFile) ELSE .COLUMNS[15].VALUE = fp_file && Photo Name ENDIF>>Try
>>oSheet.Range("O141").Item(1).Hyperlinks.Item(1).Address >>>>