address function into macro

Hi,

How can I add Address function into macro.
here is a simple macro. How can I replace cell value "G26" for this function "=Address(G17, H17)" so this function will find correct cell value.?

Sub Macro1()

'
Range("D26").Select
Selection.Copy
Range("G26").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

Best regards T

Replace:

Please Login or Register  to view this content.

With:

Please Login or Register  to view this content.

If you wanted to go a step further you could clean out all of the unnecessary selecting, cutting and pasting and replace the code above with just:

Please Login or Register  to view this content.

Also, can you use code tags when you post code, please, as per rule 3 of the forum?