What is in AmountCol, Choice and ItemAmount. My guess is that one of those
is invalid

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Karen53" wrote in message
...
Hi,

I am getting an error 13: Type Mismatch and don't understand why. Would
someone clarify this for me?

Sub SaveItems(AmountCol, Choice, ItemAmount)

Dim ws As Worksheet
Set ws = Tablespg

With ws

With .Range(AmountCol & Choice)
.Value = Val(ItemAmount)
.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* " -
"??_);_(@_)"
End With

End With

End Sub

The error occurs at the .NumberFormat statement. ItemAmount is a value
obtained from a textbox then converted to a number in the .Value
statement.

--
Thanks for your help.
Karen53