Option Explicit

'This script will extract the GRD file of a selected map in an opened SRF file.

Sub Main
Dim grd As Object

'grab the grid object from the selected mapframe and then save it
Set grd = GetObject(,"Surfer.Application").ActiveDocument.Selection(1).Overlays(1).Grid
grd.SaveFile(Replace(grd.FileName,".grd","_recovered.grd"),srfGridFmtS7)

End Sub