Create INSERT statements from Excel

Sub CreateInsertScript()
 Dim Row As Integer
 Dim Col As Integer

 'To store all the columns available in the current active sheet
 Dim ColNames(100) As String

 Col = 1
 Row = 1
 Dim ColCount As Integer
 ColCount = 0
 'Get Columns from the sheet
 Do Until ActiveSheet.Cells(Row, Col) = "" 'Loop until you find a blank.
 ColNames(ColCount) = "[" + ActiveSheet.Cells(Row, Col) + "]"
 ColCount = ColCount + 1
 Col = Col + 1
 Loop
 ColCount = ColCount - 1

 'Inputs for the starting and ending point for the rows
 Row = InputBox("Give the starting Row No.")
 Dim MaxRow As Integer
 MaxRow = InputBox("Give the Maximum Row No.")

 'File to save the generated insert statements
 File = "c:\\InsertCode.txt"
 fHandle = FreeFile()
 Open File For Output As fHandle

 Dim CellColCount As Integer
 Dim StringStore As String 'Temporary variable to store partial statement

 Do While Row <= MaxRow
 StringStore = ""
 CellColCount = 0
 'ActiveSheet.Name will give the current active sheet name
 'this can be treated as table name in the database
 StringStore = StringStore + "insert into [" + ActiveSheet.Name + "] ( "
 Do While CellColCount <= ColCount
 StringStore = StringStore + ColNames(CellColCount)
 'To avoid "," after last column
 If CellColCount <> ColCount Then
 StringStore = StringStore + " , "
 End If
 CellColCount = CellColCount + 1
 Loop
 'Here it will print "insert into [TableName] ( [Col1] , [Col2] , ..."
 Print #fHandle, StringStore + " ) "

 'For printing the values for the above columns
 StringStore = " values( "
 CellColCount = 0
 Do While CellColCount <= ColCount
 StringStore = StringStore + " '" + CStr(ActiveSheet.Cells(Row, CellColCount + 1)) + "'"
 If CellColCount <> ColCount Then
 StringStore = StringStore + ", "
 End If
 CellColCount = CellColCount + 1
 Loop

 'Here it will print "values( 'value1', 'value2', ..."
 Print #fHandle, StringStore + ");"
 Print #fHandle, " "
 Row = Row + 1


 Loop


 Close #fHandle
 MsgBox ("Successfully Done")
 End Sub