i have been trying for days to create a multiplication table in Excel using Visual basic it is driving me mad!! i has to be a 12x12 grid with each row the correct multiplication etc i have only just started using this and woud really appreciate some help please, this is my attempt but it doesnt work or print any numbers or anything can someone show me what the correct code is ????

'Input1 is referred to as [B1]
'Input2 is referred to as [B2]
'Input3 is referred to as [B3]
'Input4 is referred to as [B4]
'Input5 is referred to as [B5]
'Input6 is referred to as [B6]
'Input7 is referred to as [B7]
'Input8 is referred to as [B8]
'Input9 is referred to as [B9]
'Input10 is referred to as [B10]
'Input11 is referred to as [B11]
'Input12 is referred to as [B12]

Option Explicit

'clears the Output
Sub ClearOutput()
[B5] = Chr(0)
End Sub

'reads name in Input1 and displays greeting in Output
Sub hello()
Dim strName As String 'name read in
Dim strGreeting As String ' greeting displayed

strName = [B1]
strGreeting = "hello " & strName

[B5] = strGreeting
End Sub

'adds the numbers in Input1 and Input2 and displays sum in Output
Sub AddNumbers()
Dim intFirst As Integer, intsecond As Integer 'numbers read in
Dim intSum As Integer 'sum displayed

intFirst = [B1]
intsecond = [B2]
intSum = intFirst + intsecond

[B5] = intSum
End Sub
'creates a multiplication table
Sub TimesTable()

Dim row As Integer
Dim collumn As Integer
Dim intAnswer As Integer
Dim strAnswer As String
Dim intFirst As Integer
Dim intsecond As Integer
Dim FormatintAnswer As FormatCondition
Dim strOut As String

intFirst = [B1]
intsecond = [B2]

intFirst = 1
Do
intsecond = 1
Do
intAnswer = intFirst * intsecond

strOut = strOut & strAnswer
intsecond = intsecond + 1

Loop Until intsecond = 13
strOut = strOut & Chr(10)

intFirst = intFirst + 1

Loop Until intFirst = 13

End Sub

creates a multiplication table
Sub TimesTable()

Dim row As Integer
Dim collumn As Integer
Dim intAnswer As Integer
Dim strAnswer As String
Dim intFirst As Integer
Dim intsecond As Integer
Dim FormatintAnswer As FormatCondition
Dim strOut As String

intFirst = [B1]
intsecond = [B2]

intFirst = 1
Do
intsecond = 1
Do
intAnswer = intFirst * intsecond

strOut = strOut & strAnswer
intsecond = intsecond + 1

Loop Until intsecond = 13
strOut = strOut & Chr(10)

intFirst = intFirst + 1

Loop Until intFirst = 13

End Sub

sub mult()

For icol=1 to 12
for irow=1 to 12
varval = icol * irow
sheet1.cells(irow+1,icol+1).formula = varval
next irow
next icol

end sub

Not terribly efficient, and I've left a space for column and row headers.

You could equally use on the long line:

sheet1.cells(selection.row+irow-1,selection.column+icol-1).formula = varval

This will make the 12*12 grid appear wherever your cursor is. Don't do it on the last 11 columns or rows of the sheet, though. It will fall over.