Sub Main 'Opens all SRF file in directory 'Exports each to GIF Debug.Clear ''''''''''''' User Variables '''''''''''''''''' file_extension = "srf" file_directory = "C:\temp\grids\" export_format = "gif" ''''''''''''''''''''''''''''''''''''''''''''''' Set surf = CreateObject("surfer.application") surf.Visible = True Debug.Print surf.Version file_extension = LCase(Right(file_extension,(Len(file_extension) - InStrRev(file_extension,".")))) If Len(file_directory)-InStrRev(file_directory,"\") <> 0 Then file_directory = file_directory + "\" srf_file = Dir( file_directory + "*." + file_extension) On Error GoTo FileError While srf_file <> "" 'Define output grid file directory & name export_file = file_directory + Left(srf_file, Len(srf_file)-(Len(srf_file)-InStrRev(srf_file,".")+1) ) + "." + export_format 'Declares Plot As an Object And opens an SRF file Dim Plot As Object Set Plot = surf.Documents.Open(file_directory + srf_file) 'surf.plot.Export(export_file) Plot.Export2(export_file, filterid:=export_format) Debug.Print srf_file srf_file = Dir() 'get next file Wend surf.Quit Exit Sub 'Print a meaningful error message for each file that did not grid correctly FileError: Debug.Print "Error: " + srf_file + " " + Err.Description Resume Next End Sub